--- a/Smalltalk.st	Sat Feb 28 12:52:06 2009 +0100
+++ b/Smalltalk.st	Mon Mar 02 18:14:50 2009 +0100
@@ -1978,12 +1978,15 @@
 
     "add a block to be executed when Smalltalk finishes.
      This feature is currently not used anywhere - but could be useful for
-     cleanup in stand alone applications."
+     cleanup in stand alone applications.
+
+     Better use: ObjectMemory>>#addDependent: and handle the change message
+     #aboutToQuit."
 
     ExitBlocks isNil ifTrue:[
-	ExitBlocks := OrderedCollection with:aBlock
+        ExitBlocks := OrderedCollection with:aBlock
     ] ifFalse:[
-	ExitBlocks add:aBlock
+        ExitBlocks add:aBlock
     ]
 !
 
@@ -7210,5 +7213,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.870 2009-02-26 20:39:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.871 2009-03-02 17:14:50 stefan Exp $'
 ! !