diff --git a/ansi-tests/search-bitvector.lsp b/ansi-tests/search-bitvector.lsp
index 408081210a97c9405ba3d7183a1bf010e0c14ca9..b435f2074752062e47c361b6c2f545bb2fd5de19 100644
--- a/ansi-tests/search-bitvector.lsp
+++ b/ansi-tests/search-bitvector.lsp
@@ -7,9 +7,9 @@
 
 (deftest search-bitvector.1
   (let ((target *searched-bitvector*)
-	(pat #(a)))
+	(pat #*0))
     (loop for i from 0 to (1- (length target))
-	  for tail on target
+	  for tail = (subseq target i)
 	  always
 	  (let ((pos (search pat tail)))
 	    (search-check pat tail pos))))
@@ -17,7 +17,7 @@
 
 (deftest search-bitvector.2
   (let ((target *searched-bitvector*)
-	(pat #(a)))
+	(pat #*0))
     (loop for i from 1 to (length target)
 	  always
 	  (let ((pos (search pat target :end2 i :from-end t)))