--- a/Parser.st	Mon Sep 22 22:31:33 2003 +0200
+++ b/Parser.st	Wed Oct 01 18:02:59 2003 +0200
@@ -7330,7 +7330,13 @@
 description
     |s|
 
-    s := super description , (errorMessage ? '').
+    s := super description.
+    s last isSeparator ifFalse:[
+        errorMessage size > 0 ifTrue:[
+            s := s , ' '
+        ]
+    ].
+    s := s , (errorMessage ? '').
     lineNumber notNil ifTrue:[
         s := s , ' [' , lineNumber asString , ']'
     ].
@@ -7389,7 +7395,7 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.409 2003-09-22 20:31:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.410 2003-10-01 16:02:59 cg Exp $'
 ! !
 
 Parser initialize!