--- a/Scanner.st	Wed Jan 24 16:11:47 2007 +0100
+++ b/Scanner.st	Wed Jan 24 16:34:00 2007 +0100
@@ -1363,10 +1363,9 @@
 showErrorMessage:aMessage position:pos
     "show an errormessage on the Transcript"
 
-    ignoreErrors ifFalse:[
-        Smalltalk silentLoading == true ifFalse:[
-            Transcript showCR:(pos printString , ' [line: ' , tokenLineNr printString , '] ' , aMessage)
-        ]
+    (ignoreErrors or:[Smalltalk silentLoading]) ifFalse:[
+        Transcript showCR:('Scanner [<4p> line:<1p> off:<2p>]: <3p>' 
+                            expandMacrosWith:tokenLineNr with:pos with:aMessage with:source).
     ]
 
     "Modified: 18.5.1996 / 15:44:35 / cg"
@@ -3161,7 +3160,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.231 2007-01-12 20:58:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.232 2007-01-24 15:34:00 stefan Exp $'
 ! !
 
 Scanner initialize!