--- a/ApplicationModel.st	Tue Jul 27 16:39:46 2010 +0200
+++ b/ApplicationModel.st	Wed Jul 28 11:57:28 2010 +0200
@@ -1259,7 +1259,10 @@
         ].
     ].
 
-    ^ [self perform:aKey]   "/ could use:  MessageSend receiver:self selector:aKey 
+    ^ MessageSend receiver:self selector:aKey
+    "/ ^ [self perform:aKey]   "/ could use:  MessageSend receiver:self selector:aKey
+
+    "Modified: / 28-07-2010 / 11:56:49 / cg"
 !
 
 actionFor:aKey withValue:aValue
@@ -1279,7 +1282,11 @@
             ^ masterApplication actionFor:aKey withValue:aValue
         ].
     ].
-    ^ [self perform:aKey with:aValue]
+
+    ^ MessageSend receiver:self selector:aKey argument:aValue
+    "/ ^ [self perform:aKey with:aValue]
+
+    "Modified: / 28-07-2010 / 11:56:42 / cg"
 !
 
 actionFor:aKey withValue:value1 withValue:value2
@@ -3744,11 +3751,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.306 2010-07-25 08:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.307 2010-07-28 09:57:28 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.306 2010-07-25 08:41:14 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.307 2010-07-28 09:57:28 cg Exp $'
 ! !
 
 ApplicationModel initialize!