diff --git a/scsh/filemtch.scm b/scsh/filemtch.scm
index f89c94f..367c2eb 100644
--- a/scsh/filemtch.scm
+++ b/scsh/filemtch.scm
@@ -63,7 +63,7 @@
 		 (patterns (cdr patterns))
 		 (dir (file-name-as-directory root))
 		 (matcher (cond ((regexp? pattern)
-				 (lambda (f) (regexp-search? re f)))
+				 (lambda (f) (regexp-search? pattern f)))
 
 				;; This arm makes a file-matcher using
 				;; predicate PATTERN. If PATTERN signals