--- a/Scanner.st	Fri Feb 13 10:22:46 2009 +0100
+++ b/Scanner.st	Fri Feb 13 16:10:57 2009 +0100
@@ -1400,7 +1400,7 @@
     |fullMessage|
 
     Smalltalk isInitialized ifFalse:[    
-        thisContext fullPrintAll.
+        thisContext printAll.
     ].
 
     "/ fullMessage := (self errorMessagePrefix) , ' ' , (aMessage ? '???').
@@ -3224,7 +3224,7 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.246 2009-02-13 08:37:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.247 2009-02-13 15:10:57 cg Exp $'
 ! !
 
 Scanner initialize!