diff --git a/scsh/rx/spencer.scm b/scsh/rx/spencer.scm
index 2656d48..2b4368f 100644
--- a/scsh/rx/spencer.scm
+++ b/scsh/rx/spencer.scm
@@ -157,7 +157,7 @@
 ;;; I is the index of the char following the left brace.
 
 (define (parse-posix-braces s i)
-  (let ((comma (string-index s #\,) i)
+  (let ((comma (string-index s #\, i))
 	(rb (string-index s #\} i)))
     (if rb
 	(if (and comma (< comma rb))