--- a/Object.st	Tue May 20 19:06:37 1997 +0200
+++ b/Object.st	Tue May 20 21:20:37 1997 +0200
@@ -3299,6 +3299,7 @@
     "
     Display notNil ifTrue:[
 	Display ungrabPointer.
+	Display ungrabKeyboard.
     ].
 
     "
@@ -5983,6 +5984,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.193 1997-05-20 14:46:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.194 1997-05-20 19:20:37 cg Exp $'
 ! !
 Object initialize!