--- a/DebugView.st	Sat Apr 12 12:39:12 1997 +0200
+++ b/DebugView.st	Mon Apr 14 18:23:48 1997 +0200
@@ -210,12 +210,23 @@
             CachedExclusive := nil.
         ].
     ] ifFalse:[
-        (CachedDebugger notNil and:[CachedDebugger device ~~ Screen current]) ifTrue:[
-            CachedDebugger := nil
+        CachedDebugger notNil ifTrue:[
+            (CachedDebugger device ~~ Screen current 
+            or:[CachedDebugger device isOpen not]) ifTrue:[
+                CachedDebugger := nil
+            ]
         ].
-        (CachedDebugger isNil 
-        or:[CachedDebugger device ~~ Screen current]) ifTrue:[
-            debugger := super new.
+
+        CachedDebugger isNil ifTrue:[
+            Screen current isOpen ifFalse:[
+                DeviceWorkstation currentScreenQuerySignal handle:[:ex |
+                    ex proceedWith:Display
+                ] do:[
+                    debugger := super new.
+                ]
+            ] ifTrue:[
+                debugger := super new.
+            ].
             debugger label:'Debugger'.
             debugger icon:self defaultIcon.
         ] ifFalse:[
@@ -225,7 +236,7 @@
     ].
     ^ debugger
 
-    "Modified: 15.2.1997 / 18:52:16 / cg"
+    "Modified: 14.4.1997 / 18:18:30 / cg"
 !
 
 newExclusive
@@ -3467,6 +3478,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.155 1997-04-04 14:26:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.156 1997-04-14 16:23:48 cg Exp $'
 ! !
 DebugView initialize!