diff --git a/scsh/fr.scm b/scsh/fr.scm
index a50782f..157cdbe 100644
--- a/scsh/fr.scm
+++ b/scsh/fr.scm
@@ -69,7 +69,7 @@
 
 (define (->delim-matcher x)
   (if (procedure? x) x					; matcher proc
-      (let ((re (cond ((string? x) (re-string x))
+      (let ((re (cond ((string? x) (posix-string->regexp x))
 		      ((char-set? x) (re-char-set x))
 		      ((char? x) (re-string (string x)))
 		      ((regexp? x) x)