--- a/XWorkstation.st	Thu Aug 16 19:38:23 2001 +0200
+++ b/XWorkstation.st	Fri Aug 17 14:45:36 2001 +0200
@@ -8232,18 +8232,18 @@
 ungrabKeyboard
     "release the keyboard"
 
-    activeKeyboardGrab ifNotNil:[
-	activeKeyboardGrab := nil.
-	self primUngrabKeyboard.
+    activeKeyboardGrab notNil ifTrue:[
+        activeKeyboardGrab := nil.
+        self primUngrabKeyboard.
     ]
 !
 
 ungrabPointer
     "release the pointer"
 
-    activePointerGrab ifNotNil:[
-	activePointerGrab := nil.
-	self primUngrabPointer.
+    activePointerGrab notNil ifTrue:[
+        activePointerGrab := nil.
+        self primUngrabPointer.
     ]
 ! !
 
@@ -11574,6 +11574,6 @@
 !XWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.393 2001-08-15 16:40:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.394 2001-08-17 12:45:36 cg Exp $'
 ! !
 XWorkstation initialize!