diff --git a/Controller.vb b/Controller.vb
index 238a06d..9d4b5cc 100644
--- a/Controller.vb
+++ b/Controller.vb
@@ -4442,12 +4442,12 @@ Public Class Controller
             Dim nId As Integer = EgtGetFirstSelectedObj()
             While nId <> GDB_ID.NULL
                Dim nCopyId As Integer = EgtCopyGlob(nId, GetCurrLayer())
-               EgtScale(nCopyId, New Frame3d(m_ptP1), m_dLast, m_dLast, m_dLast, GDB_RT.GRID)
+               EgtScale(nCopyId, New Frame3d(m_ptP1.Loc(GDB_ID.GRID)), m_dLast, m_dLast, m_dLast, GDB_RT.GRID)
                nId = EgtGetNextSelectedObj()
             End While
          ' eseguo scalatura
          Else
-            EgtScale(GDB_ID.SEL, New Frame3d(m_ptP1), m_dLast, m_dLast, m_dLast, GDB_RT.GRID)
+            EgtScale(GDB_ID.SEL, New Frame3d(m_ptP1.Loc(GDB_ID.GRID)), m_dLast, m_dLast, m_dLast, GDB_RT.GRID)
          End If
          DisableCommandLog()
          EgtDraw()
@@ -4526,12 +4526,12 @@ Public Class Controller
             Dim nId As Integer = EgtGetFirstSelectedObj()
             While nId <> GDB_ID.NULL
                Dim nCopyId As Integer = EgtCopyGlob(nId, GetCurrLayer())
-               EgtScale(nCopyId, New Frame3d(m_ptP1), m_d3Last(0), m_d3Last(1), m_d3Last(2), GDB_RT.GRID)
+               EgtScale(nCopyId, New Frame3d(m_ptP1.Loc(GDB_ID.GRID)), m_d3Last(0), m_d3Last(1), m_d3Last(2), GDB_RT.GRID)
                nId = EgtGetNextSelectedObj()
             End While
          ' eseguo scalatura
          Else
-            Dim bOk = EgtScale(GDB_ID.SEL, New Frame3d(m_ptP1), m_d3Last(0), m_d3Last(1), m_d3Last(2), GDB_RT.GRID)
+            Dim bOk = EgtScale(GDB_ID.SEL, New Frame3d(m_ptP1.Loc(GDB_ID.GRID)), m_d3Last(0), m_d3Last(1), m_d3Last(2), GDB_RT.GRID)
             If Not bOk Then
                ' "Some entities are not scalable" "Warning"
                MessageBox.Show(EgtMsg(2055), EgtMsg(2003), MessageBoxButtons.OK, MessageBoxIcon.Warning)
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
index 8d1d4be..f68bd19 100644
--- a/My Project/AssemblyInfo.vb	
+++ b/My Project/AssemblyInfo.vb	
@@ -46,5 +46,5 @@ Imports System.Runtime.InteropServices
 ' utilizzando l'asterisco (*) come descritto di seguito:
 ' <Assembly: AssemblyVersion("1.0.*")> 
 
-<Assembly: AssemblyVersion("1.6.4.4")> 
-<Assembly: AssemblyFileVersion("1.6.4.4")> 
+<Assembly: AssemblyVersion("1.6.4.5")> 
+<Assembly: AssemblyFileVersion("1.6.4.5")>