--- a/ResourceRetriever.st	Sun Jul 20 12:25:40 1997 +0200
+++ b/ResourceRetriever.st	Mon Jul 21 08:59:05 1997 +0200
@@ -123,6 +123,8 @@
 resource
     "returns form assigned to resource or nil
     "
+    |img|
+
     selector isNil ifTrue:[
         ^nil
     ].
@@ -134,7 +136,12 @@
             ^ nil
         ]
     ].
-  ^ resourceOwner visualFor:selector.
+    (resourceOwner respondsTo:#visualFor:) ifTrue:[
+        (img := resourceOwner visualFor:selector) notNil ifTrue:[
+            ^ img
+        ]
+    ].
+  ^ resourceOwner perform:selector.
 ! !
 
 !ResourceRetriever methodsFor:'converting'!