--- a/MiniDebugger.st	Thu Jan 11 21:39:29 1996 +0100
+++ b/MiniDebugger.st	Thu Jan 11 21:40:27 1996 +0100
@@ -128,11 +128,6 @@
 enter
     |leaveCmd stillHere|
 
-    Display notNil ifTrue:[
-	Display ungrabPointer.
-	Display ungrabKeyboard.
-    ].
-
     stillHere := true.
     [stillHere] whileTrue:[
 	leaveCmd := self commandLoop.
@@ -378,6 +373,11 @@
 getCommand
     |cmd c|
 
+    Display notNil ifTrue:[
+	Display ungrabPointer.
+	Display ungrabKeyboard.
+    ].
+
     'MiniDebugger> ' print.
 
     Object userInterruptSignal handle:[:ex |
@@ -434,5 +434,5 @@
 !MiniDebugger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.22 1995-12-09 15:04:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniDebugger.st,v 1.23 1996-01-11 20:40:27 cg Exp $'
 ! !