diff --git a/harbour/source/vm/hvm.c b/harbour/source/vm/hvm.c
index e50c32562a..d31da41648 100644
--- a/harbour/source/vm/hvm.c
+++ b/harbour/source/vm/hvm.c
@@ -93,6 +93,7 @@ void    Less( void );            /* checks if the latest - 1 value is less than
 void    LessEqual( void );       /* checks if the latest - 1 value is less than or equal the latest, removes both and leaves result */
 void    Message( PHB_SYMB pSymMsg ); /* sends a message to an object */
 void    Minus( void );           /* substracts the latest two values on the stack, removes them and leaves the result */
+void    ModuleName( char * szModuleName ); /* PRG and function name information for the debugger */
 void    Modulus( void );         /* calculates the modulus of latest two values on the stack, removes them and leaves the result */
 void    Mult( void );            /* multiplies the latest two values on the stack, removes them and leaves the result */
 void    Negate( void );          /* negates (-) the latest value on the stack */
@@ -435,6 +436,11 @@ void VirtualMachine( BYTE * pCode, PHB_SYMB pSymbols )
               w++;
               break;
 
+         case HB_P_MODULENAME:
+              ModuleName( ( char * ) pCode + w + 1 );
+              while( pCode[ w++ ] );
+              break;
+
          case HB_P_MODULUS:
               Modulus();
               w++;
@@ -1372,6 +1378,11 @@ void Minus( void )
 
 }
 
+void ModuleName( char * szModuleName ) /* PRG and function name information for the debugger */
+{
+
+}
+
 void Modulus( void )
 {
    WORD wDec1, wDec2;