diff --git a/scsh/rx/spencer.scm b/scsh/rx/spencer.scm
index e61c904..3d91c56 100644
--- a/scsh/rx/spencer.scm
+++ b/scsh/rx/spencer.scm
@@ -140,7 +140,8 @@
 
 		    ;; Regular letter -- either alone, or startpoint of a range.
 		    (else (if (and (< (+ i1 1) len)
-				   (char=? #\- (string-ref s i1)))
+				   (char=? #\- (string-ref s i1))
+				   (not (char=? #\] (string-ref s (+ i1 1)))))
 
 			      ;; Range
 			      (let* ((i-tochar (+ i1 1))