diff --git a/Internals/MruList.vb b/Internals/MruList.vb
index 982e3a0..3c242b1 100644
--- a/Internals/MruList.vb
+++ b/Internals/MruList.vb
@@ -50,7 +50,7 @@ Public Class MruList
       For i As Integer = 1 To m_nMaxEntries
          Dim sKey As String = K_FILE + i.ToString()
          If i <= m_FileNames.Count Then
-            WritePrivateProfileString(m_sSection, sKey, m_FileNames(i).ToString)
+            WritePrivateProfileString(m_sSection, sKey, m_FileNames(i - 1).ToString)
          Else
             WritePrivateProfileString(m_sSection, sKey, "")
          End If
diff --git a/ProjectPage/ProjectViewModel.vb b/ProjectPage/ProjectViewModel.vb
index 9283c70..c08ab93 100644
--- a/ProjectPage/ProjectViewModel.vb
+++ b/ProjectPage/ProjectViewModel.vb
@@ -14,11 +14,11 @@ Namespace EgtCAM5
       Private m_CloseProgram As Boolean = False
 
       ' Variabili in cui salvo i filtri di selezione della modalità Draw e che poi ripristino all'uscita dalla modalità Machining
-      Private m_bSelZeroDim As Boolean
-      Private m_bSelCurve As Boolean
-      Private m_bSelSurf As Boolean
-      Private m_bSelVolume As Boolean
-      Private m_bSelExtra As Boolean
+      Private m_bSelZeroDim As Boolean = True
+      Private m_bSelCurve As Boolean = True
+      Private m_bSelSurf As Boolean = True
+      Private m_bSelVolume As Boolean = True
+      Private m_bSelExtra As Boolean = True
 
       Private m_bLoaded As Boolean = False