diff --git a/module/ice-9/read.scm b/module/ice-9/read.scm
index 74f567dd5..29175d54c 100644
--- a/module/ice-9/read.scm
+++ b/module/ice-9/read.scm
@@ -500,7 +500,7 @@
       (let lp ((ch ch) (chars '()))
         (when (eof-object? ch)
           (error "unexpected end of input while reading array"))
-        (if (memv ch '(#\( #\@ @\:))
+        (if (memv ch '(#\( #\@ #\:))
             (values ch
                     (if (null? chars)
                         #t