diff --git a/EXE_MachMgr.cpp b/EXE_MachMgr.cpp
index c1d99ed..77748fe 100644
--- a/EXE_MachMgr.cpp
+++ b/EXE_MachMgr.cpp
@@ -78,6 +78,16 @@ ExeSetCurrMachine( const string& sMachineName)
    return pMachMgr->SetCurrMachine( sMachineName) ;
 }
 
+//-----------------------------------------------------------------------------
+bool
+ExeGetCurrMachineName( string& sMachineName)
+{
+   IMachMgr* pMachMgr = GetCurrMachMgr() ;
+   VERIFY_MACHMGR( pMachMgr, false)
+  // recupero il nome della macchina corrente
+   return pMachMgr->GetCurrMachineName( sMachineName) ;
+}
+
 //-----------------------------------------------------------------------------
 //   Machining Groups
 //-----------------------------------------------------------------------------
diff --git a/LUA_MachMgr.cpp b/LUA_MachMgr.cpp
index aed795f..fceb9d8 100644
--- a/LUA_MachMgr.cpp
+++ b/LUA_MachMgr.cpp
@@ -39,6 +39,23 @@ LuaSetCurrMachine( lua_State* L)
    return 1 ;
 }
 
+//-------------------------------------------------------------------------------
+static int
+LuaGetCurrMachineName( lua_State* L)
+{
+  // nessun parametro
+   LuaClearStack( L) ;
+  // recupero il nome della macchina
+   string sMachineName ;
+   bool bOk = ExeGetCurrMachineName( sMachineName) ; 
+  // restituisco il risultato
+   if ( bOk)
+      LuaSetParam( L, sMachineName) ;
+   else
+      LuaSetParam( L) ;
+   return 1 ;
+}
+
 //-------------------------------------------------------------------------------
 //    Mach Groups
 //-------------------------------------------------------------------------------
@@ -1700,6 +1717,7 @@ LuaInstallMachMgr( LuaMgr& luaMgr)
    bool bOk = ( &luaMgr != nullptr) ;
    // Machines
    bOk = bOk && luaMgr.RegisterFunction( "EgtSetCurrMachine", LuaSetCurrMachine) ;
+   bOk = bOk && luaMgr.RegisterFunction( "EgtGetCurrMachineName", LuaGetCurrMachineName) ;
    // Mach Groups
    bOk = bOk && luaMgr.RegisterFunction( "EgtGetMachGroupCount", LuaGetMachGroupCount) ;
    bOk = bOk && luaMgr.RegisterFunction( "EgtGetFirstMachGroup", LuaGetFirstMachGroup) ;