diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 0df8aec..434bca6 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -70,5 +70,5 @@ Imports System.Windows
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.8.3.7")> 
-<Assembly: AssemblyFileVersion("1.8.3.7")> 
+<Assembly: AssemblyVersion("1.8.4.1")> 
+<Assembly: AssemblyFileVersion("1.8.4.1")> 
diff --git a/SetUpWindow/SetUpViewModel.vb b/SetUpWindow/SetUpViewModel.vb
index 3164f2c..25e2e86 100644
--- a/SetUpWindow/SetUpViewModel.vb
+++ b/SetUpWindow/SetUpViewModel.vb
@@ -311,7 +311,18 @@ Namespace EgtCAM5
                            For PositionIndex = 0 To m_PositionGroupList(nGroup - 1).PositionList.Count - 1
                               Dim TempPosition As Position = m_PositionGroupList(nGroup - 1).PositionList(PositionIndex)
                               If TempPosition.TcPos = sTcPos Then
-                                 TempPosition.Head = sHead
+                                 ' verifico se la testa è diversa
+                                 If TempPosition.Head <> sHead Then
+                                    ' altrimenti la sovrascrivo
+                                    TempPosition.Head = sHead
+                                    ' e verifico il numero di uscite
+                                    For ExitIndex = TempPosition.ExitToolAssociationList.Count + 1 To EgtGetHeadExitCount(sHead)
+                                       TempPosition.ExitToolAssociationList.Add(New ExitToolAssociation(ExitIndex.ToString, TempPosition))
+                                    Next
+                                    For ExitIndex = EgtGetHeadExitCount(sHead) + 1 To TempPosition.ExitToolAssociationList.Count
+                                       TempPosition.ExitToolAssociationList.RemoveAt(ExitIndex - 1)
+                                    Next
+                                 End If
                                  For ExitIndex = 0 To TempPosition.ExitToolAssociationList.Count - 1
                                     Dim CurrExitToolAss As ExitToolAssociation = TempPosition.ExitToolAssociationList(ExitIndex)
                                     If CurrExitToolAss.ExitPar = sExitList(ToolIndex) Then
@@ -874,7 +885,7 @@ Namespace EgtCAM5
             EgtOutLog("SetUp warning: try to set " & SelTool.Name & " on " & Position.TcPos)
             MessageBox.Show(EgtMsg(MSG_SETUPERRORS + 5), EgtMsg(MSG_SETUPERRORS + 1), MessageBoxButton.OK, MessageBoxImage.Error)
             Return False
-            ' altrimenti, se la posizione nell'attrezzaggio è vuota
+         ' altrimenti, se la posizione nell'attrezzaggio è vuota
          ElseIf Not PosIsOccupied Then
             ' verifico se la testa è la stessa
             If Not Position.Head = sHead Then