--- a/Smalltalk.st	Tue May 30 19:45:13 2017 +0200
+++ b/Smalltalk.st	Tue May 30 21:37:14 2017 +0200
@@ -5065,16 +5065,20 @@
     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
+        ]
+    ].
+    Display notNil ifTrue:[ Display closeConnection ].
+
     OperatingSystem exit:statusInteger
     "not reached"
 
     "Be careful evaluating this
      Smalltalk exit:1
     "
+
+    "Modified: / 30-05-2017 / 21:36:35 / cg"
 !
 
 exitIfStandalone