--- a/ApplicationModel.st	Tue Sep 29 21:32:28 2009 +0200
+++ b/ApplicationModel.st	Thu Oct 01 09:15:58 2009 +0200
@@ -1546,14 +1546,13 @@
     helpText := self basicFlyByHelpTextForKey:aKey.
     helpText isNil ifTrue:[
         "resolve key from resources"
-        ^ self translateString:aKey.
-    ] ifFalse:[
-        "/ kludge to allow for dynamic translation by the application itself.
-        helpText isBlock ifTrue:[
-            ^ helpText value
-        ].
-        ^ (self translateString:helpText) withCRs.
+        ^ self translateString:aKey.  "/ withCRs ?
     ].
+    "/ kludge to allow for dynamic translation by the application itself.
+    helpText isBlock ifTrue:[
+        ^ helpText value
+    ].
+    ^ (self translateString:helpText) withCRs.
 
     "Modified: / 03-11-2007 / 12:04:14 / cg"
 !
@@ -3585,7 +3584,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.292 2009-09-21 20:05:34 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.293 2009-10-01 07:15:58 cg Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.293 2009-10-01 07:15:58 cg Exp $'
 ! !
 
 ApplicationModel initialize!