--- a/Scanner.st	Mon Oct 29 11:32:25 2012 +0100
+++ b/Scanner.st	Wed Oct 31 15:12:26 2012 +0100
@@ -1372,6 +1372,8 @@
     (Smalltalk isInitialized not and:[Smalltalk isStandAloneDebug]) ifTrue:[
         "/ error during startup, but sometimes we expect an error and want to supress it
         Parser parseWarningSignal query ~~ #ignore ifTrue:[
+            (self class name,' [error]: error during initialization:') errorPrint.
+            aMessage errorPrintCR.
             thisContext fullPrintAll.
         ].
     ].
@@ -1498,7 +1500,9 @@
 
     |fullMessage|
 
-    Smalltalk isInitialized ifFalse:[    
+    Smalltalk isInitialized ifFalse:[
+        (self class name,' [error]: error during initialization:') errorPrint.
+        aMessage errorPrintCR.
         thisContext printAll.
     ].
 
@@ -3424,11 +3428,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.284 2012-10-08 12:36:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.285 2012-10-31 14:12:26 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.284 2012-10-08 12:36:16 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.285 2012-10-31 14:12:26 cg Exp $'
 ! !
 
 Scanner initialize!