--- a/ListView.st	Thu Apr 07 20:05:41 2005 +0200
+++ b/ListView.st	Thu Apr 07 20:08:40 2005 +0200
@@ -4253,17 +4253,7 @@
 nextTabAfter:colNr
     "return the next tab position after col"
 
-    |nextTab|
-
-    nextTab := self nextTabAfter:colNr in:tabPositions.
-
-    "/ fallback to mod-8 tabs if beyond tab-list.
-    nextTab <= colNr ifTrue:[
-        nextTab := colNr + 1.
-        nextTab := nextTab + (8 - (nextTab \\ 8)).
-    ].
-
-    ^ nextTab
+    ^ self nextTabAfter:colNr in:tabPositions.
 !
 
 nextTabAfter:colNr in:tabPositions
@@ -4280,9 +4270,14 @@
     thisTab := tabPositions at:tabIndex.
     nTabs := tabPositions size.
     [thisTab <= col] whileTrue:[
-	(tabIndex == nTabs) ifTrue:[^ thisTab].
-	tabIndex := tabIndex + 1.
-	thisTab := tabPositions at:tabIndex
+        (tabIndex == nTabs) ifTrue:[
+            "/ fallback to mod-8 tabs if beyond tab-list.
+            thisTab := col + 1.
+            thisTab := thisTab + (8 - (thisTab \\ 8)).
+            ^ thisTab
+        ].
+        tabIndex := tabIndex + 1.
+        thisTab := tabPositions at:tabIndex
     ].
     ^ thisTab
 !
@@ -4429,5 +4424,5 @@
 !ListView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.300 2005-04-07 18:05:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ListView.st,v 1.301 2005-04-07 18:08:40 cg Exp $'
 ! !