--- 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