--- a/UIHelpTool.st	Mon Jan 26 15:59:20 1998 +0100
+++ b/UIHelpTool.st	Mon Jan 26 16:18:30 1998 +0100
@@ -442,11 +442,15 @@
     cls isNil ifTrue:[
         ^ self information:'No application class defined!!'.
     ].
-    dictionary isEmpty | isModified not ifTrue:[
+    isModified not ifTrue:[
         ^nil
     ].
 
     superHelpSpecKeys := cls superclass helpSpec keys.
+    dictionary := dictionary keys removeAll: superHelpSpecKeys; yourself.
+    dictionary isEmpty ifTrue:[
+        ^nil
+    ].
 
     src  := '' writeStream.
 
@@ -464,7 +468,7 @@
 
 '.
 
-    (dictionary keys removeAll: superHelpSpecKeys; yourself) asSortedCollection
+    dictionary asSortedCollection
     do:[:key |
         |txt t|