See ChangeLog entry 19990604-12:30 EDT David G. Holm <dholm@jsd-llc.com>

harbour/ChangeLog

@@ -1,3 +1,8 @@
+19990604-12:30 EDT David G. Holm <dholm@jsd-llc.com>
+  * source/vm/hvm.c
+    - Corrected HARBOUR ERRORLEVEL() to not change the error level if
+      it is called with no parameters.
+
 19990604-18:05 CET Jose Lalin (upload Eddie Runia)
   * makefile.*
     descend added

harbour/source/vm/hvm.c

@@ -2228,7 +2228,9 @@ HARBOUR ERRORLEVEL()
 {
    BYTE bPrevValue = bErrorLevel;
 
-   bErrorLevel = _parni( 1 );
+   if( _pcount() > 0 )
+      /* Only replace the error level if a parameter was passed */
+      bErrorLevel = _parni( 1 );
    _retni( bPrevValue );
 }