diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index f661889330..454aff8f65 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,8 @@
+19990508-15:24 CET Victor Szel <info@szelvesz.hu>
+
+   * source/rtl/strings.c:
+     Fixed warning in PADR(), PADL(), PADC() (David G. Holm)
+
 19990507-23:45 EDT David G. Holm <dholm@jsd-llc.com>
   This update makes Harbour compatible with the IBM C++ compiler.
   * include/init.h
diff --git a/harbour/source/rtl/strings.c b/harbour/source/rtl/strings.c
index 3c859165a2..31a2276577 100644
--- a/harbour/source/rtl/strings.c
+++ b/harbour/source/rtl/strings.c
@@ -164,11 +164,12 @@ HARBOUR ALLTRIM( void )
 HARBOUR PADR( void )
 {
    char *szText = _parc(1);
+
    if( _pcount() > 1 )
    {
       ULONG lLen = _parnl(2);
 
-      if( lLen >= (ULONG)_parclen(1) )
+      if( lLen > (ULONG)_parclen(1) )
       {
          char *szResult = (char *)_xgrab(lLen + 1);
          ULONG lPos;
@@ -184,10 +185,8 @@ HARBOUR PADR( void )
          _retclen(szResult, lLen);
          _xfree(szResult);
       }
-      else if( lLen >= 0 )
-         _retclen(szText, lLen);
       else
-         _retc("");
+         _retclen(szText, lLen);
    }
    else
       _retc("");
@@ -227,10 +226,8 @@ HARBOUR PADL( void )
          _retclen(szResult, lLen);
          _xfree(szResult);
       }
-      else if( lLen >= 0 )
-         _retclen(szText, lLen);
       else
-         _retc("");
+         _retclen(szText, lLen);
    }
    else
       _retc("");
@@ -267,10 +264,8 @@ HARBOUR PADC( void )
          _retclen(szResult, lLen);
          _xfree(szResult);
       }
-      else if( lLen >= 0 )
-         _retclen(szText, lLen);
       else
-         _retc("");
+         _retclen(szText, lLen);
    }
    else
       _retc("");