--- a/SelTreeV.st	Sat Oct 11 14:20:07 1997 +0200
+++ b/SelTreeV.st	Sat Oct 11 14:25:11 1997 +0200
@@ -433,6 +433,8 @@
     |size end index yBot yTop yCtr level figWidthDiv2
      x xFig xStr node lv idx image xCross|
 
+    level := nil. "/ to force evaluation of #ifFalse in loop
+
     index := self visibleLineToAbsoluteLine:startVisLineNr.
     size  := listOfNodes size.
     yTop  := self yOfVisibleLine:startVisLineNr.
@@ -1175,5 +1177,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.26 1997-10-11 12:19:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/Attic/SelTreeV.st,v 1.27 1997-10-11 12:25:11 cg Exp $'
 ! !

--- a/SelectionInTreeView.st	Sat Oct 11 14:20:07 1997 +0200
+++ b/SelectionInTreeView.st	Sat Oct 11 14:25:11 1997 +0200
@@ -433,6 +433,8 @@
     |size end index yBot yTop yCtr level figWidthDiv2
      x xFig xStr node lv idx image xCross|
 
+    level := nil. "/ to force evaluation of #ifFalse in loop
+
     index := self visibleLineToAbsoluteLine:startVisLineNr.
     size  := listOfNodes size.
     yTop  := self yOfVisibleLine:startVisLineNr.
@@ -1175,5 +1177,5 @@
 !SelectionInTreeView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.26 1997-10-11 12:19:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/SelectionInTreeView.st,v 1.27 1997-10-11 12:25:11 cg Exp $'
 ! !