--- a/Scanner.st	Thu Oct 01 12:10:22 1998 +0200
+++ b/Scanner.st	Thu Oct 01 12:55:16 1998 +0200
@@ -748,12 +748,13 @@
     |m|
 
     errorFlag := true.
-    m := 'Error: ' , aMessage.
+    m := 'Error: ' , (aMessage ? '???').
     self notifyError:m position:position to:endPos.
     exitBlock notNil ifTrue:[exitBlock value].
     ^ false
 
     "Created: / 13.5.1998 / 16:44:55 / cg"
+    "Modified: / 28.9.1998 / 19:29:27 / cg"
 !
 
 showErrorMessage:aMessage position:pos
@@ -1879,6 +1880,6 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.85 1998-06-18 21:11:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.86 1998-10-01 10:55:16 cg Exp $'
 ! !
 Scanner initialize!