diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index c4537dc78d..75e2141d42 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-06-21 14:05 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * contrib/dot/pp.prg
+     + Revised explicit support for Extended expression match marker, in NextExp() to use normal logic for () expresiions.
+
 2001-06-21 10:50 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * contrib/dot/pp.prg
      ! Changed MatchRule() to set sNextAnchor (for NextExp()) by skipping to next NON optional Anchor.
diff --git a/harbour/contrib/dot/pp.prg b/harbour/contrib/dot/pp.prg
index c3d63259b1..0812b9512e 100644
--- a/harbour/contrib/dot/pp.prg
+++ b/harbour/contrib/dot/pp.prg
@@ -4157,7 +4157,7 @@ STATIC FUNCTION NextExp( sLine, cType, aWords, aExp, sNextAnchor, bX )
         //? "EXP <*>: " + sExp
         RETURN sExp
 
-     CASE cType == '('
+     CASE cType == '(' .AND. Left( sLine, 1 ) != '('
         nSpaceAt := At( ' ', sLine )
 
         IF nSpaceAt = 0