--- a/ApplicationModel.st	Thu Dec 22 10:49:17 2011 +0100
+++ b/ApplicationModel.st	Thu Dec 22 11:07:34 2011 +0100
@@ -1595,7 +1595,7 @@
     ].
     ^ helpText
 
-    "Modified: / 22-07-2011 / 10:47:35 / cg"
+    "Modified: / 22-12-2011 / 11:06:53 / cg"
 !
 
 basicHelpTextForKey:aKey
@@ -1649,6 +1649,8 @@
 
     |helpText translatedHelpText translatedKey|
 
+    ActiveHelp debugging ifTrue:[ Transcript showCR:'help key: ', aKey].
+
     helpText := self basicFlyByHelpTextForKey:aKey.
     helpText isNil ifTrue:[
         masterApplication notNil ifTrue:[
@@ -1677,7 +1679,7 @@
     ].
     ^ translatedHelpText withCRs.
 
-    "Modified: / 24-07-2010 / 01:54:25 / cg"
+    "Modified: / 22-12-2011 / 10:47:39 / cg"
 !
 
 flyByHelpTextForKey:aKey row:aRowNr
@@ -1758,7 +1760,7 @@
     ].
     ^ translatedHelpText withCRs.
 
-    "Modified: / 4.2.2000 / 15:30:16 / cg"
+    "Modified: / 22-12-2011 / 11:07:03 / cg"
 ! !
 
 !ApplicationModel methodsFor:'building'!
@@ -3913,7 +3915,7 @@
 !ApplicationModel class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.323 2011-11-18 13:08:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ApplicationModel.st,v 1.324 2011-12-22 10:07:34 cg Exp $'
 ! !
 
 ApplicationModel initialize!