--- a/Parser.st	Fri May 04 15:07:47 2012 +0200
+++ b/Parser.st	Mon May 07 13:59:26 2012 +0200
@@ -10103,7 +10103,7 @@
 
     s := super description.
     s last isSeparator ifFalse:[
-        errorMessage size > 0 ifTrue:[
+        errorMessage notEmptyOrNil ifTrue:[
             s := s , ' '
         ]
     ].
@@ -10769,11 +10769,11 @@
 !Parser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.715 2012-04-16 17:11:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.716 2012-05-07 11:59:26 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.715 2012-04-16 17:11:29 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Parser.st,v 1.716 2012-05-07 11:59:26 stefan Exp $'
 !
 
 version_SVN