--- a/MenuEditor.st	Wed Oct 17 12:25:01 2001 +0200
+++ b/MenuEditor.st	Wed Oct 17 18:09:16 2001 +0200
@@ -2191,7 +2191,7 @@
     "update channels"
 
     |node parent next prev state canPaste selectedNodes firstParent
-     enableMovingOut enableMovingIn indices indexOfLast|
+     enableMovingOut enableMovingIn indexOfLast|
 
     enableMovingOut := enableMovingIn := false.
 
@@ -2456,7 +2456,7 @@
 tabSelection:aSelection
     "put the section aSelection into the note book
     "
-    |view spec|
+    |view|
 
     aSelection = tabSelection ifTrue:[^self].
 

--- a/UIHelpTool.st	Wed Oct 17 12:25:01 2001 +0200
+++ b/UIHelpTool.st	Wed Oct 17 18:09:16 2001 +0200
@@ -638,8 +638,6 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel" 
 
-    |list listOfHelpSpecClassesView|
-
     modified := false.
     specClass  := self getHelpSpecClassFromClass:aClass.
     self rebuild.