--- a/MiniDebugger.st	Mon Dec 15 11:33:38 1997 +0100
+++ b/MiniDebugger.st	Mon Dec 15 11:34:19 1997 +0100
@@ -424,11 +424,17 @@
 "/        Display ungrabPointer.
 "/        Display ungrabKeyboard.
 "/    ].
-    Screen notNil ifTrue:[
-        Screen allScreens do:[:aScreen |
-            aScreen ungrabPointer.
-            aScreen ungrabKeyboard.
-        ].
+
+"/    Screen notNil ifTrue:[
+"/        Screen allScreens do:[:aScreen |
+"/            aScreen ungrabPointer.
+"/            aScreen ungrabKeyboard.
+"/        ].
+"/    ].
+
+    Display notNil ifTrue:[
+        Display ungrabPointer.
+        Display ungrabKeyboard.
     ].
 
     'MiniDebugger> ' print.
@@ -514,5 +520,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.34 1997-10-08 13:55:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.35 1997-12-15 10:34:19 cg Exp $'
 ! !