--- a/UIHelpTool.st	Fri Jan 23 15:12:07 1998 +0100
+++ b/UIHelpTool.st	Fri Jan 23 15:26:35 1998 +0100
@@ -440,10 +440,10 @@
     cls := self applicationClassAssociatedWith:aClass.
 
     cls isNil ifTrue:[
-        ^ self information:'no application class defined'.
+        ^ self information:'No application class defined!!'.
     ].
-    dictionary isEmpty ifTrue:[
-        ^ self information:'no help text defined'
+    dictionary isEmpty | isModified not ifTrue:[
+        ^nil
     ].
 
     superHelpSpecKeys := cls superclass helpSpec keys.