diff --git a/ansi-tests/search-string.lsp b/ansi-tests/search-string.lsp
index 83af4bd486ebc07ddaf5b745dedaf4d517105d29..66c03c72e583787ab78c891eb1b509e1b5f6a505 100644
--- a/ansi-tests/search-string.lsp
+++ b/ansi-tests/search-string.lsp
@@ -5,6 +5,10 @@
 
 (in-package :cl-test)
 
+;;; The next test was busted due to to a stupid cut and paste
+;;; error.  The loop terminates immediately, doing nothing
+;;; useful. -- PFD
+#|
 (deftest search-string.1
   (let ((target *searched-string*)
 	(pat #(a)))
@@ -14,6 +18,7 @@
 	  (let ((pos (search pat tail)))
 	    (search-check pat tail pos))))
   t)
+|#
 
 (deftest search-string.2
   (let ((target *searched-string*)