--- a/DebugView.st	Sat Aug 21 12:54:04 1999 +0200
+++ b/DebugView.st	Mon Aug 23 19:59:07 1999 +0200
@@ -194,7 +194,7 @@
     "return a new DebugView - return a cached debugger if it already
      exists"
 
-    |debugger|
+    |debugger currentScreen|
 
     "
      need a blocking debugger if no processes or 
@@ -218,13 +218,17 @@
         ].
 
         CachedDebugger isNil ifTrue:[
-            Screen current isOpen ifFalse:[
+            currentScreen := Screen current.
+            (currentScreen isOpen not
+            or:[currentScreen mayOpenDebugger not]) ifTrue:[
+                "/ use the default display
                 DeviceWorkstation currentScreenQuerySignal handle:[:ex |
                     ex proceedWith:Display
                 ] do:[
                     debugger := super new.
                 ]
-            ] ifTrue:[
+            ] ifFalse:[
+                "/ use the current display
                 debugger := super new.
             ].
             debugger label:'Debugger'.
@@ -3977,6 +3981,6 @@
 !DebugView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.240 1999-08-18 15:09:24 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DebugView.st,v 1.241 1999-08-23 17:59:07 cg Exp $'
 ! !
 DebugView initialize!