diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index 79eb24b25f..dcedb30815 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -1392,7 +1392,10 @@ void Minus( void )
 
 void ModuleName( char * szModuleName ) /* PRG and function name information for the debugger */
 {
-
+   PushSymbol( hb_FindDynSym( "DEBUGGER" )->pSymbol );
+   PushNil();
+   PushString( szModuleName, strlen( szModuleName ) );
+   Do( 1 );
 }
 
 void Modulus( void )