--- a/DeviceWorkstation.st	Tue May 11 09:36:43 2004 +0200
+++ b/DeviceWorkstation.st	Tue May 11 10:01:01 2004 +0200
@@ -3672,6 +3672,11 @@
 
      Since id may be an ExternalAddress, do not compare with =="
 
+    id isNil ifTrue:[
+        "nil id is no resource"
+        ^ nil
+    ].
+
     self allViewsDo:[:aView |
         aView id = id ifTrue:[^ aView].
         aView gcId = id ifTrue:[^ aView]
@@ -7400,7 +7405,7 @@
 !DeviceWorkstation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.464 2004-05-10 15:30:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/DeviceWorkstation.st,v 1.465 2004-05-11 08:00:57 stefan Exp $'
 ! !
 
 DeviceWorkstation initialize!