--- a/Scanner.st	Mon Nov 19 19:45:16 2007 +0100
+++ b/Scanner.st	Mon Nov 19 19:52:37 2007 +0100
@@ -1336,7 +1336,11 @@
 parseError:aMessage position:position to:endPos
     "report an error"
 
-    |m fullMessage|
+    |fullMessage|
+
+    Smalltalk isInitialized ifFalse:[    
+        thisContext fullPrintAll.
+    ].
 
     "/ fullMessage := (self errorMessagePrefix) , ' ' , (aMessage ? '???').
     fullMessage := (aMessage ? 'Unspecified error').
@@ -3163,7 +3167,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.233 2007-03-21 13:23:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.234 2007-11-19 18:52:37 cg Exp $'
 ! !
 
 Scanner initialize!