--- a/ListModelView.st	Fri May 04 16:51:48 2007 +0200
+++ b/ListModelView.st	Mon May 07 16:16:47 2007 +0200
@@ -1156,7 +1156,7 @@
      or nil if beyond of list.
     "
 
-    |cache
+    |cache yCache
      yAbs       "{ Class: SmallInteger}"
      size       "{ Class: SmallInteger}"
      ictr       "{ Class: SmallInteger}"
@@ -1172,8 +1172,10 @@
         ^ nil
     ].   
 
-    yRun := cache at:size ifAbsent:nil.
-    yRun isNil ifTrue:[ ^ nil ].    "/ out of list
+    yCache := cache at:size ifAbsent:nil.
+    yCache isNil ifTrue:[ ^ nil ].    "/ out of list
+
+    yRun := yCache.
 
     yAbs >= yRun ifTrue:[
         yAbs == yRun ifTrue:[ ^ size - 1].
@@ -1857,7 +1859,7 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.102 2007-05-04 14:51:48 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.103 2007-05-07 14:16:47 mb Exp $'
 ! !
 
 ListModelView initialize!