diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index b5c7dc3d91..a087f85595 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-30 08:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     ! Fixed PP_PreProLine() to not generate '#line n "<module>"' if module name is empty()
+
 2001-05-30 01:30 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * contrib/dot/pp.prg
      + Added PP_PreProText( cText [, acLines ] ) returns the pre-process text and optional file asLines with pre=processed lines.
diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg
index 642fa84ddc..156abce587 100644
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -2620,7 +2620,9 @@ FUNCTION PP_PreProLine( sLine, nLine, sSource )
       ENDIF
 
       IF s_sIncludeFile != NIL
-         aAdd( asOutLines, "#line " + LTrim( Str( nLine ) ) + ' "' + Upper( sSource ) + '"' )
+         IF ! Empty( sSource )
+            aAdd( asOutLines, "#line " + LTrim( Str( nLine ) ) + ' "' + Upper( sSource ) + '"' )
+         ENDIF
          s_sIncludeFile := NIL
       ENDIF