--- a/Scanner.st	Fri Dec 14 10:15:29 2012 +0100
+++ b/Scanner.st	Wed Jan 02 14:38:23 2013 +0100
@@ -164,7 +164,6 @@
 
     "/ TODO: later versions should be configurable w.r.t separators.
     "/ #(9 10 12 13 26 32) do: [:i | TypeArray at:(i+1) put: #separator].
-
     block := [:s :char | s nextNumber].
     ($0 codePoint) to:($9 codePoint) do:[:index |
         actionArray at:index put:block
@@ -1503,7 +1502,7 @@
     Smalltalk isInitialized ifFalse:[
         (self class name,' [error]: error during initialization:') errorPrint.
         aMessage errorPrintCR.
-        thisContext printAll.
+        thisContext fullPrintAll.
     ].
 
     "/ fullMessage := (self errorMessagePrefix) , ' ' , (aMessage ? '???').
@@ -3473,11 +3472,11 @@
 !Scanner class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.287 2012-12-12 23:04:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.288 2013-01-02 13:38:23 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.287 2012-12-12 23:04:12 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Scanner.st,v 1.288 2013-01-02 13:38:23 cg Exp $'
 ! !
 
 Scanner initialize!