--- a/DeviceWorkstation.st	Fri Apr 04 11:02:09 1997 +0200
+++ b/DeviceWorkstation.st	Fri Apr 04 11:35:33 1997 +0200
@@ -4957,16 +4957,19 @@
         idx := idToTableIndexMapping at:aWindowID ifAbsent:nil.
         idx notNil ifTrue:[
             v := knownViews at:idx.
-            v notNil ifTrue:[
-                ^ true
-            ].
+            ^ (v notNil and:[v ~~ 0])
         ]
     ].
 
     index := knownIds indexOf:aWindowID.
-    ^ index ~~ 0
+    index ~~ 0 ifTrue:[
+        v := knownViews at:idx.
+        ^ (v notNil and:[v ~~ 0])
+    ].
+    ^ false.
 
     "Created: 4.4.1997 / 11:01:07 / cg"
+    "Modified: 4.4.1997 / 11:13:19 / cg"
 ! !
 
 !DeviceWorkstation methodsFor:'window stuff'!
@@ -5237,6 +5240,6 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.198 1997-04-04 09:01:37 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.199 1997-04-04 09:35:33 cg Exp $'
 ! !
 DeviceWorkstation initialize!