diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3c90708159..eee700f2ef 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+2001-05-03 07:30 UTC-0800 Ron Pinkas <ron@profit-master.com>
+   * source/pp/ppcore.c
+     + Added missing valid string prefix (|) in getExpReal()
+
 2001-05-02 21:20 UTC-0800 Ron Pinkas <ron@profit-master.com>
    * source/pp/ppcore.c
      ! Corrected bug in getExpReal() where strings could be appended to an invalid expression.
diff --git a/harbour/source/pp/ppcore.c b/harbour/source/pp/ppcore.c
index b3bf1e02e6..6de5b8195a 100644
--- a/harbour/source/pp/ppcore.c
+++ b/harbour/source/pp/ppcore.c
@@ -1873,7 +1873,7 @@ static int getExpReal( char * expreal, char ** ptri, BOOL prlist, int maxrez, BO
    while( **ptri != '\0' && !rez && lens < maxrez )
    {
       /* Added by Ron Pinkas 2000-11-08 ( removed lots of related scattered logic below! */
-      if( State == STATE_EXPRES || strchr( "({[,$!#=<>^%*/+-", cLastChar ) ) /* Ron Pinkas added if on State 2001-05-02 to avoid multiple strings concatination. */
+      if( State == STATE_EXPRES || strchr( "({[|,$!#=<>^%*/+-", cLastChar ) ) /* Ron Pinkas added if on State 2001-05-02 to avoid multiple strings concatination. */
       {
          if( **ptri == '"' )
          {