--- a/ApplicationModel.st	Wed Oct 28 09:23:45 2015 +0100
+++ b/ApplicationModel.st	Thu Oct 29 09:33:18 2015 +0100
@@ -1480,6 +1480,13 @@
     ^ nil
 !
 
+aspectValueFor:aKey
+    "fetch an aspect's value
+     same as (self aspectFor:aKey) value"
+
+    ^ (self aspectFor:aKey) value
+!
+
 clientFor:aKey
     "sent by the builder to ask for an application provided
      subcanvas's application.