--- a/UIHelpTool.st	Wed Mar 25 15:13:47 2015 +0100
+++ b/UIHelpTool.st	Wed Mar 25 15:20:01 2015 +0100
@@ -11,6 +11,8 @@
 "
 "{ Package: 'stx:libtool2' }"
 
+"{ NameSpace: Smalltalk }"
+
 ResourceSpecEditor subclass:#UIHelpTool
 	instanceVariableNames:'classItemList classItemModel keyItemModel helpTextView
 		modifiedHolder contentsModifiedChannel editModel'
@@ -726,7 +728,7 @@
 
         self addHistoryEntryForClass:specClass selector:helpSpecSelector.
 
-        specClass withAllSuperclasses reverse do:[:aClass| |value name|
+        specClass withAllSuperclasses reverseDo:[:aClass| |value name|
             lastContents isNil ifTrue:[
                 aClass == ApplicationModel ifTrue:[ 
                     lastContents := IdentityDictionary new