--- a/XWorkstation.st	Sat Aug 19 04:40:24 1995 +0200
+++ b/XWorkstation.st	Wed Aug 23 19:56:13 1995 +0200
@@ -35,7 +35,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.55 1995-08-19 02:40:15 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.56 1995-08-23 17:56:02 claus Exp $
 '!
 
 !XWorkstation class methodsFor:'documentation'!
@@ -56,7 +56,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.55 1995-08-19 02:40:15 claus Exp $
+$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.56 1995-08-23 17:56:02 claus Exp $
 "
 !
 
@@ -3395,10 +3395,12 @@
 
 %{  /* NOCONTEXT */
 
-    BEGIN_INTERRUPTSBLOCKED
-    XUngrabKeyboard(myDpy, CurrentTime);
-    XSync(myDpy, 0);
-    END_INTERRUPTSBLOCKED
+    if (ISCONNECTED) {
+        BEGIN_INTERRUPTSBLOCKED
+        XUngrabKeyboard(myDpy, CurrentTime);
+        XSync(myDpy, 0);
+        END_INTERRUPTSBLOCKED
+    }
 %}.
     activeKeyboardGrab := nil
 !
@@ -3480,10 +3482,12 @@
 
 %{  /* NOCONTEXT */
 
-    BEGIN_INTERRUPTSBLOCKED
-    XUngrabPointer(myDpy, CurrentTime);
-    XSync(myDpy, 0);
-    END_INTERRUPTSBLOCKED
+    if (ISCONNECTED) {
+        BEGIN_INTERRUPTSBLOCKED
+        XUngrabPointer(myDpy, CurrentTime);
+        XSync(myDpy, 0);
+        END_INTERRUPTSBLOCKED
+    }
 %}.
     activePointerGrab := nil
 !