--- a/HierarchicalListEditor.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/HierarchicalListEditor.st	Fri Oct 10 20:59:33 1997 +0200
@@ -960,7 +960,7 @@
 doDefineSelector
     "define selector only
     "
-    |sel cls bindings accepted|
+    |sel bindings accepted|
 
     accepted := true.
     bindings := IdentityDictionary new.
@@ -1206,7 +1206,7 @@
 buildFrom:aClass andSelector:aSelector
     "rebuild window from a class and selector
     "
-    |sel anchor stream|
+    |sel anchor|
 
     (specClass := aClass) isBehavior ifFalse:[
         specClass notNil ifTrue:[