--- a/ApplicationModel.st	Tue May 20 12:01:53 2003 +0200
+++ b/ApplicationModel.st	Wed May 21 11:02:29 2003 +0200
@@ -382,12 +382,13 @@
      images from a Dictionary or whatever.
      Typically, an image is returned there."
 
-    (self application respondsTo:aKey) ifTrue:[
-        ^ self application perform:aKey
+    |app|
+
+    app := self application.
+    (app respondsTo:aKey) ifTrue:[
+        ^ app perform:aKey
     ].
-    ^ self application visualAt:aKey ifAbsent:nil
-
-
+    ^ app visualAt:aKey ifAbsent:nil
 ! !
 
 !ApplicationModel class methodsFor:'change & update'!
@@ -2729,7 +2730,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.188 2003-05-07 14:40:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.189 2003-05-21 09:02:29 mb Exp $'
 ! !
 
 ApplicationModel initialize!