--- a/ResourceRetriever.st	Fri May 22 11:57:38 1998 +0200
+++ b/ResourceRetriever.st	Fri May 22 20:29:51 1998 +0200
@@ -111,6 +111,13 @@
         ^aResourceOwner resources string: label
     ].
 
+    ((aResourceOwner isSubclassOf: ApplicationModel) or: 
+    [aResourceOwner isSubclassOf: SimpleView]) 
+    ifTrue:
+    [
+        ^aResourceOwner resources string: label
+    ].
+
     ^self labelResources string:label
   
 !