--- a/Object.st	Fri Feb 13 12:00:52 2009 +0100
+++ b/Object.st	Fri Feb 13 12:10:49 2009 +0100
@@ -8962,10 +8962,11 @@
     |currentScreen con sender action boxLabels boxValues default s|
 
     Smalltalk isInitialized ifFalse:[
-        'errorNotification: ' print. aString print. 
-        '(' print. aContext print. ')' printCR.
+        'errorNotification: ' print. aString printCR.
+        aContext sender fullPrintAllLevels:10
         ^ nil
     ].
+
     (Dialog isNil
      or:[Screen isNil
      or:[(currentScreen := Screen current) isNil
@@ -9184,7 +9185,7 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.622 2009-02-13 11:00:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.623 2009-02-13 11:10:49 cg Exp $'
 ! !
 
 Object initialize!