--- a/ApplicationModel.st	Tue Mar 19 13:12:17 2013 +0100
+++ b/ApplicationModel.st	Tue Mar 19 13:12:37 2013 +0100
@@ -2196,9 +2196,14 @@
 
     |helpSpecFromBindings helpText helpSpec "resourceArgs"|
 
-    helpSpecFromBindings := self aspectFor:#helpSpec.
+    helpSpecFromBindings := self aspectFor:#flyByHelpSpec.
     helpSpecFromBindings notNil ifTrue:[
         helpText := helpSpecFromBindings at:aKey ifAbsent:nil.
+    ] ifFalse:[
+        helpSpecFromBindings := self aspectFor:#helpSpec.
+        helpSpecFromBindings notNil ifTrue:[
+            helpText := helpSpecFromBindings at:aKey ifAbsent:nil.
+        ].
     ].
     helpText isNil ifTrue:[
         helpSpec := self flyByHelpSpec.
@@ -3947,11 +3952,12 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.333 2012-10-23 12:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.334 2013-03-19 12:12:37 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.333 2012-10-23 12:39:49 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.334 2013-03-19 12:12:37 cg Exp $'
 ! !
 
+
 ApplicationModel initialize!