Index: test/index5.test
==================================================================
--- test/index5.test
+++ test/index5.test
@@ -62,13 +62,14 @@
     } else {
       incr nNoncont
     }
     set iPrev $iNext
   }
+  puts -nonewline \
+      " (forward=$nForward, back=$nBackward, noncontiguous=$nNoncont)"
 
-  expr {$nForward > $nBackward}
+  expr {$nForward > 25*($nBackward + $nNoncont)}
 } {1}
 db close
 tvfs delete
 
 finish_test
-