--- a/ToolApplicationModel.st	Thu Apr 02 18:50:19 1998 +0200
+++ b/ToolApplicationModel.st	Sat Apr 04 19:08:16 1998 +0200
@@ -237,6 +237,9 @@
 #historyMenuItem
 'Evaluates the text of the menu item for loading.'
 
+#settings
+'Settings functions.'
+
 #test
 'Test functions.'
 
@@ -1167,11 +1170,11 @@
 
 menuHistory
 
-    |menu a|
+    |menu|
     menu := Menu new receiver: self.
     (self history collect: [:histEntry| histEntry value]) asSet asOrderedCollection do:
     [:historyEntryType|    
-        menu addItemGroup: ((a := self history select: [:histEntry| histEntry value = historyEntryType]) collect: [:histEntry|  MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key; activeHelpKey: #historyMenuItem]).
+        menu addItemGroup: ((self history select: [:histEntry| histEntry value = historyEntryType]) collect: [:histEntry|  MenuItem new label: histEntry key printString; value: histEntry value; argument: histEntry key; activeHelpKey: #historyMenuItem]).
     ]. 
     menu addItem: (MenuItem new label: 'Empty History'; value: #emptyHistory; activeHelpKey: #historyEmptyMenu).
 
@@ -1384,5 +1387,5 @@
 !ToolApplicationModel class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.51 1998-04-02 16:50:19 tz Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/ToolApplicationModel.st,v 1.52 1998-04-04 17:08:16 tz Exp $'
 ! !