diff --git a/Icarus/TopPanel/TopPanelVM.vb b/Icarus/TopPanel/TopPanelVM.vb
index 9871554..624b77b 100644
--- a/Icarus/TopPanel/TopPanelVM.vb
+++ b/Icarus/TopPanel/TopPanelVM.vb
@@ -276,12 +276,19 @@ Public Class TopPanelVM
          ' e la rimuovo
          m_MachiningList.Remove(MachiningIndex.Empty())
       End If
-      ' se nuova lavorazione e' none
-      If SelMachining.sGUID = Guid.Empty AndAlso Not MachiningList.Any(Function(x) x.sGUID = MachiningIndex.Empty.sGUID) Then
-         ' aggiungo lavorazione vuota
+      ' se nuova lavorazione e' none o non è presente in lista
+      If (IsNothing(SelMachining) OrElse SelMachining.sGUID = Guid.Empty OrElse Not MachiningList.Any(Function(x) x.sGUID = SelMachining.sGUID)) AndAlso Not MachiningList.Any(Function(x) x.sGUID = MachiningIndex.Empty.sGUID) Then
+         ' aggiungo lavorazione vuota e la seleziono
          MachiningList.Insert(0, MachiningIndex.Empty())
+         m_SelMachining = MachiningList(0)
+         '   ' se lavorazione da selezionare non trovata
+         'ElseIf (SelMachining.sGUID = Guid.Empty OrElse Not MachiningList.Any(Function(x) x.sGUID = SelMachining.sGUID)) AndAlso Not MachiningList.Any(Function(x) x.sGUID = MachiningIndex.Empty.sGUID) Then
+         '   ' aggiungo lavorazione vuota e la seleziono
+         '   MachiningList.Insert(0, MachiningIndex.Empty())
+         '   m_SelMachining = SelMachining
+      Else
+         m_SelMachining = SelMachining
       End If
-      m_SelMachining = SelMachining
       NotifyPropertyChanged(NameOf(SelMachining))
    End Sub