--- a/Smalltalk.st	Thu Feb 11 12:11:04 1999 +0100
+++ b/Smalltalk.st	Thu Feb 11 12:15:53 1999 +0100
@@ -1345,13 +1345,14 @@
 exit
     "{ Pragma: +optSpace }"
 
-    "finish Smalltalk system"
-
+    "finish the Smalltalk system"
+
+    ObjectMemory changed:#aboutToExit.  "/ for ST/X backward compatibility
     ObjectMemory changed:#aboutToQuit.  "/ for ST-80 compatibility
     ExitBlocks notNil ifTrue:[
-	ExitBlocks do:[:aBlock |
-	    aBlock value
-	]
+        ExitBlocks do:[:aBlock |
+            aBlock value
+        ]
     ].
     OperatingSystem exit
 
@@ -4248,5 +4249,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.300 1999-02-09 11:26:23 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.301 1999-02-11 11:15:53 cg Exp $'
 ! !