diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 83f86ba38a..1289d3c50f 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,7 @@
+19991101-11:53 GMT+3 Alexander Kresin
+  * source/pp/hbpp.c
+    * Fixed bug
+
 19991101-10:10 GMT+3 Alexander Kresin
   * source/pp/hbpp.c
     * Fixed bug, reported by Antonio Linares
diff --git a/harbour/source/pp/hbpp.c b/harbour/source/pp/hbpp.c
index 09179230c1..a871f0d859 100644
--- a/harbour/source/pp/hbpp.c
+++ b/harbour/source/pp/hbpp.c
@@ -1901,6 +1901,7 @@ int md_strAt(char *szSub, int lSubLen, char *szText, int checkword, int checkPrt
   int State = STATE_NORMAL;
   long lPos = 0, lSubPos = 0;
   int kolPrth = 0;
+  int lCase = ( *szSub == '\1' )? 0:1;
 
   HB_TRACE(("md_strAt(%s, %d, %s, %d, %d)", szSub, lSubLen, szText, checkword, checkPrth));
 
@@ -1943,7 +1944,8 @@ int md_strAt(char *szSub, int lSubLen, char *szText, int checkword, int checkPrt
               continue;
             }
 
-          if( toupper(*(szText + lPos)) == toupper(*(szSub + lSubPos)) )
+          if( ( lCase && toupper(*(szText + lPos)) == toupper(*(szSub + lSubPos)) ) ||
+              ( !lCase && *(szText + lPos) == *(szSub + lSubPos) ) )
             {
               lSubPos++;
               lPos++;