diff --git a/API_MachMgr.cpp b/API_MachMgr.cpp
index ad4adf6..8964625 100644
--- a/API_MachMgr.cpp
+++ b/API_MachMgr.cpp
@@ -37,6 +37,19 @@ __stdcall EgtSetCurrMachine( const wchar_t* wsMachineName)
    return ( ExeSetCurrMachine( wstrztoA( wsMachineName)) ? TRUE : FALSE) ;
 }
 
+//-----------------------------------------------------------------------------
+BOOL
+__stdcall EgtGetCurrMachineName( wchar_t*& wsMachineName)
+{
+   if ( &wsMachineName == nullptr)
+      return FALSE ;
+   string sMachineName ;
+   if ( ! ExeGetCurrMachineName( sMachineName))
+      return FALSE ;
+   wsMachineName = _wcsdup( stringtoW( sMachineName)) ;
+   return  (( wsMachineName == nullptr) ? FALSE : TRUE) ;
+}
+
 //-----------------------------------------------------------------------------
 //   Machining Groups
 //-----------------------------------------------------------------------------