Improve list processing

1 files changed, 1 insertions, 1 deletions

diff --git a/tkread b/tkread
index f4c6039..bf03f50 100755
--- a/tkread
+++ b/tkread
@@ -269,7 +269,7 @@ proc markup {widget} {
 			set dotindex [string first . $cur]
 			set linenum [string range $cur 0 [expr $dotindex - 1]]
 			$widget replace $linenum.0 $linenum.$len "• "
-			set cur [$widget search -regexp "^$item" 0.0 end]
+			set cur [$widget search -regexp "^$item" $cur end]
 		}
 	}
 }