diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index ee39dfd60..8ed4ea6c3 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -595,7 +595,7 @@
         (case ch
           ((#\\) (read-character))
           ((#\() (read-vector))
-          ((#\s #\u \c) (read-srfi-4-vector ch))
+          ((#\s #\u #\c) (read-srfi-4-vector ch))
           ((#\f) (read-false-or-srfi-4-vector))
           ((#\v) (read-bytevector))
           ((#\*) (read-bitvector))