Smalltalk.st
branchjv
changeset 17862 8a8ae3107950
parent 17859 cc167a69671c
child 17865 598963c6ff8e
--- a/Smalltalk.st	Thu Sep 15 12:05:35 2011 +0100
+++ b/Smalltalk.st	Tue Sep 20 11:11:19 2011 +0100
@@ -515,20 +515,21 @@
     "sent from VM via #initializeModules"
 
     Error handle:[:ex |
-	ClassesFailedToInitialize isNil ifTrue:[
-	    ClassesFailedToInitialize := IdentitySet new.
-	].
-	ClassesFailedToInitialize add:aClass.
-	('Smalltalk [warning]: error during initialize of ' , aClass name,': ', ex description printString) errorPrintCR.
-	ex suspendedContext fullPrintAll.
-	(Smalltalk commandLineArguments includes:'--debug') ifTrue:[
-	    ex reject
-	].
+        ClassesFailedToInitialize isNil ifTrue:[
+            ClassesFailedToInitialize := IdentitySet new.
+        ].
+        ClassesFailedToInitialize add:aClass.
+        ('Smalltalk [warning]: error during initialize of ' , aClass name,': ', ex description printString) errorPrintCR.
+        ex suspendedContext fullPrintAll.
+        '------------------------------------------------' errorPrintCR.
+        (Smalltalk commandLineArguments includes:'--debug') ifTrue:[
+            ex reject
+        ].
     ] do:[
-	aClass initialize
-    ].
-
-    "Modified: / 23-10-2006 / 16:29:19 / cg"
+        aClass initialize
+    ].
+
+    "Modified: / 11-09-2011 / 17:01:32 / cg"
 !
 
 initializeModules
@@ -7674,11 +7675,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Id: Smalltalk.st 10686 2011-09-07 16:25:40Z vranyj1 $'
+    ^ '$Id: Smalltalk.st 10690 2011-09-20 10:11:19Z vranyj1 $'
 !
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.975 2011/09/04 07:34:07 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.976 2011/09/11 15:01:45 cg Exp §'
 !
 
 version_SVN
@@ -7689,3 +7690,4 @@
 
 
 
+