diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 2e7436b500..aed85efd3f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-08-09 20:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     * Corrected logic for closing ppo output file.
+
 2001-08-09 17:45 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * source/compiler/harbour.c
      * Minor correction to handling of HB_FS_FIRST
diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg
index 91c81e8f37..4d731f588b 100644
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -2520,7 +2520,7 @@ FUNCTION PP_PreProFile( sSource, sPPOExt, bBlanks )
       ENDIF
    ENDIF
 
-   IF ProcName(2) == ""
+   IF ProcName(1) == "MAIN"
       FClose( hPP )
 
       IF bCCH