diff --git a/scsh/rx/re-low.scm b/scsh/rx/re-low.scm
index e824659..aa33ac2 100644
--- a/scsh/rx/re-low.scm
+++ b/scsh/rx/re-low.scm
@@ -85,7 +85,7 @@
 		(make-regexp-match str 
 				   (list->vector ret))))))))
 
-(define (cre-search? cre start-vec end-vec str start)
+(define (cre-search? cre str start)
   (let ((re-str (cre:string cre)))	;; RE-STR = #F => empty match.
     (if (not re-str)
 	#f