--- a/Smalltalk.st	Tue Feb 18 18:11:50 2003 +0100
+++ b/Smalltalk.st	Tue Feb 18 18:19:58 2003 +0100
@@ -2514,7 +2514,7 @@
     "common start/restart action, if there is a Display, initialize it
      and start dispatching; otherwise go into a read-eval-print loop."
 
-    |standAloneProcess imageName thisIsARestart|
+    |standAloneProcess imageName thisIsARestart startBlockProcess|
 
     imageName := ObjectMemory imageName.
     thisIsARestart := imageName notNil.
@@ -2541,7 +2541,7 @@
     "/ but lead to trouble, when it suspended.
     "/ Therefore, it is now done by an extra user-process.
 
-    [
+    startBlockProcess := [
         StartBlocks notNil ifTrue:[
             StartBlocks do:[:aBlock|
                 aBlock value
@@ -2587,11 +2587,14 @@
             ObjectMemory changed:#returnFromSnapshot.
         ]
 
-    ] newProcess
+    ] newProcess.
+
+    startBlockProcess
         priority:8;
         name:'start block handler';
         beGroupLeader;
         resume.
+    startBlockProcess := nil.
 
 
     "/ start a process, which evaluates the startupClass>>startupSelector
@@ -6396,5 +6399,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.559 2003-02-18 17:11:50 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.560 2003-02-18 17:19:58 stefan Exp $'
 ! !