diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 5401e54a26..4487a3523c 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,12 @@
+19990630-17:45 EDT David G. Holm <dholm@jsd-llc.com>
+  * source/rtl/errorapi.c
+    + Added a default severity value of ES_ERROR in hb_errNew()
+      as a temporary workaround to the error severity problem.
+  * source/rtl/errorsys.prg
+    - Removed CHR(13)+CHR(10) from QOUT() of error message,
+      because Clipper doesn't have a blank line between the
+      error message and the error trace.
+
 19990630-02:10 EDT David G. Holm <dholm@jsd-llc.com>
   * harbour.b31
     - Removed -DHARBOUR_STRICT_ANSI_C
diff --git a/harbour/source/rtl/errorapi.c b/harbour/source/rtl/errorapi.c
index 0947ebb1df..7ba85999e9 100644
--- a/harbour/source/rtl/errorapi.c
+++ b/harbour/source/rtl/errorapi.c
@@ -21,6 +21,8 @@ PHB_ITEM hb_errNew( void )
 
    ItemCopy( pReturn, &stack.Return );
 
+   hb_errPutSeverity( pReturn, ES_ERROR );
+
    return pReturn;
 }
 
diff --git a/harbour/source/rtl/errorsys.prg b/harbour/source/rtl/errorsys.prg
index d451eb0eb3..dc0dbd9902 100644
--- a/harbour/source/rtl/errorsys.prg
+++ b/harbour/source/rtl/errorsys.prg
@@ -32,7 +32,7 @@ static function DefError( oError )
       cMessage += " (DOS Error " + LTrim(Str(oError:osCode)) + ")"
    ENDIF
 
-   QOut( cMessage + Chr( 13 ) + Chr( 10 ))
+   QOut( cMessage)
 
    do while ! Empty( ProcName( n ) )
       QOut("Called from " + ProcName( n ) + ;