--- a/ApplicationModel.st	Mon Jan 30 09:29:46 2006 +0100
+++ b/ApplicationModel.st	Wed Feb 01 12:32:50 2006 +0100
@@ -1231,7 +1231,7 @@
 
     helpText := self basicHelpTextForKey:aKey.
     helpText isNil ifTrue:[
-        ^ nil
+        ^ 'Sorry, no help for: ',aKey "/ nil
     ].
 
     "/ translate.
@@ -2901,7 +2901,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.219 2006-01-23 16:12:25 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.220 2006-02-01 11:32:50 cg Exp $'
 ! !
 
 ApplicationModel initialize!