--- a/UIHelpTool.st	Thu Jan 08 23:40:15 2004 +0100
+++ b/UIHelpTool.st	Mon Jan 12 09:31:50 2004 +0100
@@ -1132,10 +1132,11 @@
         self information:(resources string:'No class specified !!').
         ^ nil
     ].
-    (specClass isSubclassOf:ApplicationModel) ifFalse:[
-        self information:(resources string:'Cannot save help into non-Application class').
-        ^ nil
-    ].
+"/ cg: the following test is rubbish !!
+"/    (specClass isSubclassOf:ApplicationModel) ifFalse:[
+"/        self information:(resources string:'Cannot save help into non-Application class').
+"/        ^ nil
+"/    ].
 
     classItemList do:[:aClassItem| 
         aClassItem createHelpMethodNamed:(self specSelector)