diff --git a/swad_account.c b/swad_account.c
index bdc6d6b1..cdfb0dfd 100644
--- a/swad_account.c
+++ b/swad_account.c
@@ -110,12 +110,12 @@ static void Acc_RemoveUsrBriefcase (struct Usr_Data *UsrDat);
 
 void Acc_PutLinkToCreateAccount (void)
   {
-   extern const char *Txt_Create_account;
+   extern const char *Txt_Actions[ActLst_NUM_ACTIONS];
 
    Lay_PutContextualLinkIconText (ActFrmMyAcc,NULL,
                                   NULL,NULL,
 				  "at.svg",Ico_BLACK,
-				  Txt_Create_account,NULL);
+				  Txt_Actions[ActCreUsrAcc],NULL);
   }
 
 /*****************************************************************************/
@@ -365,18 +365,19 @@ static void Acc_ShowFormRequestNewAccountWithPars (const char *NewNickWithoutArr
                                                    const char *NewEmail)
   {
    extern const char *Hlp_PROFILE_SignUp;
-   extern const char *Txt_Create_account;
+   extern const char *Txt_Actions[ActLst_NUM_ACTIONS];
    extern const char *Txt_Nickname;
    extern const char *Txt_HELP_nickname;
    extern const char *Txt_HELP_email;
    extern const char *Txt_Email;
+   extern const char *Txt_Create;
    char NewNickWithArr[Nck_MAX_BYTES_NICK_WITH_ARROBA + 1];
 
    /***** Begin form to enter some data of the new user *****/
    Frm_BeginForm (ActCreUsrAcc);
 
       /***** Begin box and table *****/
-      Box_BoxTableBegin (NULL,Txt_Create_account,
+      Box_BoxTableBegin (NULL,Txt_Actions[ActCreUsrAcc],
 			 NULL,NULL,
 			 Hlp_PROFILE_SignUp,Box_NOT_CLOSABLE,2);
 
@@ -428,7 +429,7 @@ static void Acc_ShowFormRequestNewAccountWithPars (const char *NewNickWithoutArr
 	 Pwd_PutFormToGetNewPasswordOnce ();
 
       /***** End table, send button and end box *****/
-      Box_BoxTableWithButtonEnd (Btn_CREATE_BUTTON,Txt_Create_account);
+      Box_BoxTableWithButtonEnd (Btn_CREATE_BUTTON,Txt_Create);
 
    /***** End form *****/
    Frm_EndForm ();
@@ -442,7 +443,7 @@ void Acc_ShowFormGoToRequestNewAccount (void)
   {
    extern const char *Hlp_PROFILE_SignUp;
    extern const char *Txt_New_on_PLATFORM_Sign_up;
-   extern const char *Txt_Create_account;
+   extern const char *Txt_Actions[ActLst_NUM_ACTIONS];
    char *Title;
 
    /***** Begin box *****/
@@ -453,7 +454,7 @@ void Acc_ShowFormGoToRequestNewAccount (void)
 
       /***** Button to go to request the creation of a new account *****/
       Frm_BeginForm (ActFrmMyAcc);
-	 Btn_PutCreateButton (Txt_Create_account);
+	 Btn_PutCreateButton (Txt_Actions[ActCreUsrAcc]);
       Frm_EndForm ();
 
    /***** End box *****/
diff --git a/swad_changelog.h b/swad_changelog.h
index 58a89657..d1960ebc 100644
--- a/swad_changelog.h
+++ b/swad_changelog.h
@@ -629,10 +629,11 @@ TODO: Emilce Barrera Mesa: Podr
 TODO: Emilce Barrera Mesa: Mis estudiantes presentan muchas dificultades a la hora de poner la foto porque la plataforma es muy exigente respecto al fondo de la imagen.
 
 */
-#define Log_PLATFORM_VERSION	"SWAD 22.107.38 (2023-05-10)"
+#define Log_PLATFORM_VERSION	"SWAD 22.107.39 (2023-05-10)"
 #define CSS_FILE		"swad22.107.36.css"
 #define JS_FILE			"swad22.49.js"
 /*
+	Version 22.107.39:May 10, 2023  Changes in creation of user account. (337435 lines)
 	Version 22.107.38:May 10, 2023  Changes in edition of mail domains. (337455 lines)
 	Version 22.107.37:May 10, 2023  Changes in edition of attendance events and agenda events. (337484 lines)
 	Version 22.107.36:May 10, 2023  Changes in style of fieldset and legend. (337505 lines)
diff --git a/swad_help.c b/swad_help.c
index 2e780cad..87d23d76 100644
--- a/swad_help.c
+++ b/swad_help.c
@@ -94,7 +94,7 @@ void Hlp_ShowHelpWhatWouldYouLikeToDo (void)
    extern const char *Txt_Upload_photo;
    extern const char *Txt_Log_in;
    extern const char *Txt_New_on_PLATFORM_Sign_up;
-   extern const char *Txt_Create_account;
+   extern const char *Txt_Actions[ActLst_NUM_ACTIONS];
    static const Act_Action_t ActionsRemoveMe[Rol_NUM_ROLES] =
      {
       [Rol_UNK    ] = ActUnk,
@@ -254,7 +254,7 @@ void Hlp_ShowHelpWhatWouldYouLikeToDo (void)
 	    Err_NotEnoughMemoryExit ();
 	 Hlp_ShowRowHelpWhatWouldYouLikeToDo (Description,
 					      ActFrmMyAcc,
-					      Btn_CREATE_BUTTON,Txt_Create_account);
+					      Btn_CREATE_BUTTON,Txt_Actions[ActCreUsrAcc]);
 	 free (Description);
 	}
 
diff --git a/swad_text.c b/swad_text.c
index b0c54a52..8d994b06 100644
--- a/swad_text.c
+++ b/swad_text.c
@@ -6572,29 +6572,6 @@ const char *Txt_Create =
 	"Yaratmak";
 #endif
 
-const char *Txt_Create_account =
-#if   L==1	// ca
-	"Crea compte";
-#elif L==2	// de
-	"Benutzerkonto anlegen";
-#elif L==3	// en
-	"Create account";
-#elif L==4	// es
-	"Crear cuenta";
-#elif L==5	// fr
-	"Créer compte";
-#elif L==6	// gn
-	"Crear cuenta";		// Okoteve traducción
-#elif L==7	// it
-	"Registrati";
-#elif L==8	// pl
-	"Załóż konto";
-#elif L==9	// pt
-	"Criar conta";
-#elif L==10	// tr
-	"Hesabı oluştur";
-#endif
-
 const char *Txt_Create_email_message =
 #if   L==1	// ca
 	"Crear missatge de correu";
diff --git a/swad_text_action.c b/swad_text_action.c
index 1bba6996..ef01539b 100644
--- a/swad_text_action.c
+++ b/swad_text_action.c
@@ -33759,25 +33759,25 @@ const char *Txt_Actions[ActLst_NUM_ACTIONS] =
 	,
 	[ActCreUsrAcc] =
 #if   L==1	// ca
-	"Create new user account"	// Necessita traducció
+	"Crea compte"
 #elif L==2	// de
-	"Create new user account"	// Need Übersetzung
+	"Benutzerkonto anlegen"
 #elif L==3	// en
-	"Create new user account"
+	"Create account"
 #elif L==4	// es
-	"Crear nueva cuenta"
+	"Crear cuenta"
 #elif L==5	// fr
-	"Create new user account"	// Besoin de traduction
+	"Créer compte"
 #elif L==6	// gn
-	"Crear nueva cuenta"		// Okoteve traducción
+	"Ojapo cuenta"
 #elif L==7	// it
-	"Create new user account"	// Bisogno di traduzione
+	"Creare un account"
 #elif L==8	// pl
-	"Create new user account"	// Potrzebujesz tlumaczenie
+	"Załóż konto"
 #elif L==9	// pt
-	"Create new user account"	// Precisa de tradução
+	"Criar conta"
 #elif L==10	// tr
-	"Create new user account"	// Çeviri lazim!
+	"Hesabı oluştur"
 #endif
 	,
 	[ActRemMyID] =