diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 4d01b421df..a29240069f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+2001-06-10 19:07 GMT+1 Patrick Mast <harbour@PatrickMast.com>
+   * contrib/tprepro/tprepro.prg
+     * SetIncludePath() method uses __PP_PATH now
+     + Added AddIncludePath(cIncludePath) method to TPreProcessor class 
+
 2001-06-10 18:35 GMT+3 Alexander Kresin <alex@belacy.belgorod.su>
    * source/pp/pplib.c
      + __PP_PATH( cPath, lClear ) added
diff --git a/harbour/contrib/tprepro/tprepro.prg b/harbour/contrib/tprepro/tprepro.prg
index ede35b1f20..bfda7a75bc 100644
--- a/harbour/contrib/tprepro/tprepro.prg
+++ b/harbour/contrib/tprepro/tprepro.prg
@@ -80,6 +80,7 @@ CLASS TPreProcessor
    METHOD End()
 
    METHOD AddRule( cRule )
+   METHOD AddIncludepath( cIncludePath )
    METHOD SetIncludepath( cIncludePath )
    METHOD TranslateLine( cCode )
    METHOD TranslateFile( cFile, lWritePPO )
@@ -112,7 +113,7 @@ return Self
 
 METHOD SetIncludepath( cIncludePath ) CLASS TPreprocessor
 
-   __PP_Init( cIncludePath )
+   __PP_PATH( cIncludePath, .t. )
 
    ::cIncludepath:=cIncludePath
 
@@ -121,6 +122,17 @@ return Self
 
 
 
+METHOD AddIncludepath( cIncludePath ) CLASS TPreprocessor
+
+   __PP_PATH( cIncludePath, .f. )
+
+   ::cIncludepath:=::cIncludePath+";"+cIncludePath
+
+return Self
+
+
+
+
 
 METHOD AddRule( cRule ) CLASS TPreprocessor