--- iselect.pl	2007/10/25 11:43:48	2
+++ iselect.pl	2007/10/25 11:47:40	3
@@ -57,14 +57,14 @@
 		$selectable_line->{$l}++;
 		$foo = '*';
 	}
-	warn "$l: $foo $lines[$l]\n";
+#	warn "$l: $foo $lines[$l]\n";
 }
 
 # select first selectable line
 
 if ( $selectable_line ) {
-	$sel_pos = (sort keys %$selectable_line)[0];
-	warn "selected first selectable line $pos";
+	$pos = $sel_pos = (sort { $a <=> $b } keys %$selectable_line)[0];
+	warn "selected first selectable line $sel_pos";
 }
 
 sub full_line {