--- a/DeviceWorkstation.st	Tue May 11 18:43:06 2004 +0200
+++ b/DeviceWorkstation.st	Tue May 11 18:44:50 2004 +0200
@@ -3682,7 +3682,7 @@
         aView gcId = id ifTrue:[^ aView]
     ].
 
-    Form allInstancesDo:[:f |
+    Form allSubInstancesDo:[:f |
         (f id = id and:[f device == self]) ifTrue:[^ f]
     ].
 
@@ -7405,7 +7405,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.465 2004-05-11 08:00:57 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.466 2004-05-11 16:44:40 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!