From 8b47c80e4cce310cc0048b9195ee49d33548582e Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Mon, 26 Feb 2001 12:01:15 +0000
Subject: [PATCH] Minor corrections

---
 harbour/contrib/dot/pp.prg   | 22 +++++++++++++---------
 harbour/contrib/dot/test.prg |  4 ++--
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg
index efb44d0a6b..8b1f9bac4f 100644
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -709,6 +709,12 @@ PROCEDURE PP_Run( cFile )
 
    bCompile := .F.
 
+   aSize( aProcedures, 0 )
+
+   #ifdef __CLIPPER__
+      Memory(-1)
+   #endif
+
 RETURN
 
 //--------------------------------------------------------------//
@@ -866,16 +872,14 @@ FUNCTION RP_Run_Err( oErr )
       sArgs := Left( sArgs, Len( sArgs ) -2 )
    ENDIF
 
-   #ifdef __CLIPPER__
-      IF oErr:SubCode == 1001
-         nProc := aScan( aProcedures, {|aProc| aProc[1] == ProcName(2 + 2) } )
-         IF nProc > 0
-            s_xRet := NIL
-            ExecuteProcedure( aProcedures[nProc] )
-            RETURN ( s_xRet )
-         ENDIF
+   IF oErr:SubCode == 1001
+      nProc := aScan( aProcedures, {|aProc| aProc[1] == ProcName(2 + 2) } )
+      IF nProc > 0
+         s_xRet := NIL
+         ExecuteProcedure( aProcedures[nProc] )
+         RETURN ( s_xRet )
       ENDIF
-   #endif
+   ENDIF
 
    Alert( "Sorry, R/T Error: '" + oErr:Operation + "' " + oErr:Description + sArgs + " " + PP_ProcName() + '(' + LTrim( Str( PP_ProcLine() ) ) + ')')
 
diff --git a/harbour/contrib/dot/test.prg b/harbour/contrib/dot/test.prg
index 73e7847b9a..6f48c2bdec 100644
--- a/harbour/contrib/dot/test.prg
+++ b/harbour/contrib/dot/test.prg
@@ -1,9 +1,9 @@
 PROCEDURE Main
 
-   PRIVATE cName
    LOCAL   cLocal
+   PRIVATE cName
 
-   CLS
+   CLEAR SCREEN
 
    Alert( "Testinf PP as Interpreter... " )