--- a/Smalltalk.st	Thu Aug 18 02:35:45 2011 +0200
+++ b/Smalltalk.st	Thu Aug 18 09:18:30 2011 +0200
@@ -2129,19 +2129,20 @@
 addStartBlock:aBlock
     "{ Pragma: +optSpace }"
 
-    "add a blocks to be executed in a separate process after
+    "add a block to be executed in a separate process after
      everything has been initialized. These blocks will
-     be deleted after execution and therefore not be
-     executed after an image restart.
-     Initial processes are usually started here (see smalltalk.rc / private.rc)."
+     be executed only once and not be executed after an image restart.
+     Initial processes such as the launcher are usually started here 
+     (see smalltalk.rc / private.rc)."
 
     StartBlocks isNil ifTrue:[
-	StartBlocks := OrderedCollection with:aBlock
+        StartBlocks := OrderedCollection with:aBlock
     ] ifFalse:[
-	StartBlocks add:aBlock
+        StartBlocks add:aBlock
     ]
 
-    "Created: 9.9.1996 / 16:46:53 / stefan"
+    "Created: / 09-09-1996 / 16:46:53 / stefan"
+    "Modified (comment): / 18-08-2011 / 09:18:01 / cg"
 !
 
 exit
@@ -7641,11 +7642,11 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.970 2011-08-07 14:55:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.971 2011-08-18 07:18:30 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.970 2011-08-07 14:55:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.971 2011-08-18 07:18:30 cg Exp $'
 !
 
 version_SVN