From c90188debcd2517deb2299495bd1dc1379bfcfc9 Mon Sep 17 00:00:00 2001
From: Antonio Linares <alinares@fivetechsoft.com>
Date: Sat, 7 Aug 1999 07:32:57 +0000
Subject: [PATCH] ModuleName() automatically invokes Debugger() if module
 compiled using /b

---
 harbour/source/vm/hvm.c | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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 )