--- a/ApplicationModel.st	Sun Jan 22 11:35:31 2012 +0100
+++ b/ApplicationModel.st	Fri Jan 27 14:34:41 2012 +0100
@@ -2189,7 +2189,7 @@
 !ApplicationModel methodsFor:'help texts'!
 
 basicFlyByHelpTextForKey:aKey
-    "flyByHelp interface: return some short help text for a key
+    "flyByHelp interface: return some short help text for a key.
      key is the symbol associated with some widget or menu item.
      Return the original (english) text; needs to be translated as per language"
 
@@ -2213,7 +2213,7 @@
     ].
     ^ helpText
 
-    "Modified: / 22-12-2011 / 11:06:53 / cg"
+    "Modified: / 27-01-2012 / 14:30:20 / cg"
 !
 
 basicHelpTextForKey:aKey
@@ -2288,7 +2288,7 @@
 
     "get the translation"
     translatedHelpText := self translateString:helpText.
-    translatedHelpText == helpText ifTrue:[
+    (helpText = aKey and:[ translatedHelpText = helpText ]) ifTrue:[
         "there is no translation in the resources - maybe there is one for the key?"
         translatedKey := self translateString:aKey.
         translatedKey ~~ aKey ifTrue:[
@@ -2297,7 +2297,7 @@
     ].
     ^ translatedHelpText withCRs.
 
-    "Modified: / 22-12-2011 / 10:47:39 / cg"
+    "Modified: / 27-01-2012 / 14:33:54 / cg"
 !
 
 flyByHelpTextForKey:aKey row:aRowNr
@@ -3929,11 +3929,11 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.327 2011-12-29 18:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.328 2012-01-27 13:34:41 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.327 2011-12-29 18:17:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.328 2012-01-27 13:34:41 cg Exp $'
 ! !
 
 ApplicationModel initialize!