diff --git a/MainWindow/MainWindowModel.vb b/MainWindow/MainWindowModel.vb
index 141d00f..7e50194 100644
--- a/MainWindow/MainWindowModel.vb
+++ b/MainWindow/MainWindowModel.vb
@@ -69,6 +69,8 @@ Friend Class MainWindowModel
                               (ChrW(97 - 1 + My.Application.Info.Version.Build)).ToString() &
                               My.Application.Info.Version.Revision.ToString()
       EgtInit(m_nDebug, sLogFile, sLogMsg)
+      ' Carico i messaggi
+      OptionModule.ReadMessages()
       ' Carico direttorio doors
       GetMainPrivateProfileString(S_DOORS, K_BASEDIR, "", IniFile.m_sDoorsDirPath)
       ' Assegno direttorio componenti
diff --git a/OptionsWindow/OptionModule.vb b/OptionsWindow/OptionModule.vb
index 6c5d423..ff681d8 100644
--- a/OptionsWindow/OptionModule.vb
+++ b/OptionsWindow/OptionModule.vb
@@ -102,8 +102,8 @@ Friend Module OptionModule
 
    Friend m_CompoPaneOrder As List(Of String) = New List(Of String)
 
-   ' inizializzazione lettura variabili ad inizio programma
-   Friend Sub InitOptionModule()
+   ' Lettura messaggi
+   Friend Sub ReadMessages()
       ' Leggo elenco lingue disponibili da file ini
       Dim nIndex As Integer = 1
       Dim ReadLanguage As Language = GetPrivateProfileLanguage(S_LANGUAGES, K_LANGUAGE & nIndex)
@@ -132,8 +132,11 @@ Friend Module OptionModule
       If Not EgtLoadMessages(sMsgFilePath) Then
          EgtOutLog(EgtMsg(50127))
       End If
+   End Sub
 
-      'i valori della pagina dell'assemblato
+   ' inizializzazione lettura variabili ad inizio programma
+   Friend Sub InitOptionModule()
+      'I valori della pagina dell'assemblato
       Dim Config As Integer = GetMainPrivateProfileInt(S_GENERAL, K_RUNAS, 0)
       m_ConfigurationSoftware = If(Config = 0, ConfigType.Door, ConfigType.Assembly)
 
diff --git a/ProjectManager/ProjectManagerVM.vb b/ProjectManager/ProjectManagerVM.vb
index eab98ab..3da5424 100644
--- a/ProjectManager/ProjectManagerVM.vb
+++ b/ProjectManager/ProjectManagerVM.vb
@@ -749,6 +749,7 @@ Public Class ProjectManagerVM
          Return
       End Try
       LocalCurrProject.SelAssemblyName = Local_AssemblyName
+      Map.refAssemblyManagerVM.Save(LocalCurrProject.SelAssemblyName)
       Map.refAssemblyManagerVM.Open(LocalCurrProject.AssemblyList(LocalCurrProject.AssemblyList.Count - 1))
    End Sub