--- a/Smalltalk.st	Fri Jan 20 13:56:44 2012 +0100
+++ b/Smalltalk.st	Fri Jan 20 15:38:38 2012 +0100
@@ -3421,9 +3421,12 @@
         'Smalltalk [info]: execute startBlocks...' infoPrintCR.
         startBlocks do:[:aBlock|
             Error handle:[:ex |
-                'Smalltalk [warning]: error cought in startBlock: ' infoPrint.
-                ex description infoPrintCR.
-                ex infoPrintCR.
+                InfoPrinting == true ifTrue:[
+                    'Smalltalk [warning]: error cought in startBlock: ' infoPrint.
+                    ex description infoPrintCR.
+                    ex infoPrintCR.
+                    thisContext fullPrintAll.
+                ].
             ] do: aBlock
         ].
         startBlocks removeAll.
@@ -7725,11 +7728,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.986 2012-01-19 09:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.987 2012-01-20 14:38:38 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.986 2012-01-19 09:18:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.987 2012-01-20 14:38:38 cg Exp $'
 !
 
 version_SVN