--- a/NewInspectorListView.st	Fri Oct 10 20:12:52 1997 +0200
+++ b/NewInspectorListView.st	Fri Oct 10 20:59:33 1997 +0200
@@ -45,8 +45,6 @@
 list:aList
     "set the lists contents from another list
     "
-    |list selNr|
-
     aList notNil ifTrue:[inspectorList := aList list]
                 ifFalse:[inspectorList := InspectorList new].
 
@@ -121,6 +119,8 @@
     "
     |nr|
 
+    nr := self visibleLineToListLine:visLineNr.
+
     (inspectorList instanceTypeAt:nr) == #directory ifTrue:[
         ^ true
     ].
@@ -182,8 +182,6 @@
     "set the list - redefined, since setting the list implies unselecting
      and clearing attributes."
 
-    |oldSelection|
-
     "somewhat of a kludge: if selection is first line,
      we have to remove the highlight frame by hand here"