--- a/Smalltalk.st	Fri Apr 11 11:35:42 1997 +0200
+++ b/Smalltalk.st	Fri Apr 11 13:41:35 1997 +0200
@@ -1550,6 +1550,10 @@
      if there is a display, start its event dispatcher 
     "
     Display notNil ifTrue:[
+        Display deviceIOErrorSignal handlerBlock:[:ex |
+            'Display [warning]: broken display connection - exit.' infoPrintCR.
+            Smalltalk exit.
+        ].
         Display startDispatch.
     ].
 
@@ -1671,7 +1675,7 @@
 
     "Created: 18.7.1996 / 21:07:39 / cg"
     "Modified: 9.9.1996 / 17:42:50 / stefan"
-    "Modified: 23.1.1997 / 19:12:46 / cg"
+    "Modified: 11.4.1997 / 13:39:06 / cg"
 !
 
 readEvalPrint
@@ -1739,7 +1743,9 @@
     "/ the Display during early startup.
 
     Display notNil ifTrue:[
-        Display invalidateConnection
+        Display class allScreens do:[:aDisplay |
+            aDisplay invalidateConnection
+        ].
     ].
 
     "/
@@ -1848,7 +1854,7 @@
 
     self mainStartup:true
 
-    "Modified: 23.1.1997 / 19:08:37 / cg"
+    "Modified: 11.4.1997 / 13:40:28 / cg"
 !
 
 start
@@ -3645,5 +3651,5 @@
 !Smalltalk class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.233 1997-04-03 16:25:42 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.234 1997-04-11 11:41:35 cg Exp $'
 ! !