--- a/Smalltalk.st	Sat Jan 07 12:45:48 2012 +0100
+++ b/Smalltalk.st	Sat Jan 07 13:04:29 2012 +0100
@@ -3499,6 +3499,25 @@
     CallbackSignal raiseRequest.
 !
 
+executeStartBlocks
+    |startBlocks|
+
+    startBlocks := self startBlocks.
+    startBlocks notNil ifTrue:[
+        'Smalltalk [info]: execute startBlocks...' infoPrintCR.
+        startBlocks do:[:aBlock|
+            Error handle:[:ex |
+                'Smalltalk [warning]: error cought in startBlock: ' infoPrint.
+                ex description infoPrintCR.
+                ex infoPrintCR.
+            ] do: aBlock
+        ].
+        startBlocks removeAll.
+    ].
+
+    "Created: / 07-01-2012 / 12:58:39 / cg"
+!
+
 hideSplashWindow
 %{
 #ifdef WIN32
@@ -3568,13 +3587,7 @@
     process := [
         'Smalltalk [info]: startup process 1 active.' infoPrintCR.
         StartBlocks notNil ifTrue:[
-            'Smalltalk [info]: execute startBlocks...' infoPrintCR.
-            StartBlocks do:[:aBlock|
-                Error handle:[:ex |
-                    'Smalltalk [warning]: error cought in startBlock: ' infoPrint.
-                    ex description infoPrintCR.
-                ] do: aBlock
-            ].
+            self executeStartBlocks.
             StartBlocks := nil.
         ].
         ImageStartBlocks notNil ifTrue:[
@@ -3711,7 +3724,7 @@
 
     "Created: / 18-07-1996 / 21:07:39 / cg"
     "Modified: / 09-09-1996 / 17:42:50 / stefan"
-    "Modified (format): / 07-01-2012 / 12:41:32 / cg"
+    "Modified: / 07-01-2012 / 12:59:23 / cg"
 !
 
 openDisplay
@@ -4221,18 +4234,7 @@
 
     p :=
         [
-            |startBlocks|
-
-            startBlocks := self startBlocks.
-            startBlocks notNil ifTrue:[
-                startBlocks do:[:aBlock|
-                    Error handle:[:ex |
-                        'Smalltalk [warning]: error cought in startBlock: ' infoPrint.
-                        ex description infoPrintCR.
-                    ] do: aBlock
-                ].
-                startBlocks removeAll.
-            ].
+            self executeStartBlocks.
         ] newProcess.
 
     p
@@ -4241,7 +4243,7 @@
         beGroupLeader;
         resume.
 
-    "Modified: / 07-01-2012 / 12:42:22 / cg"
+    "Modified: / 07-01-2012 / 12:59:01 / cg"
 ! !
 
 !Smalltalk class methodsFor:'startup queries'!
@@ -7709,11 +7711,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.984 2012-01-07 11:45:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.985 2012-01-07 12:04:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.984 2012-01-07 11:45:48 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.985 2012-01-07 12:04:29 cg Exp $'
 !
 
 version_SVN