diff --git a/ansi-tests/read-suppress.lsp b/ansi-tests/read-suppress.lsp
index edb4e703b9692d091b245e5c831383bfa39742d8..0a93829ee59a91a5004e63391dfe44ea32118cc6 100644
--- a/ansi-tests/read-suppress.lsp
+++ b/ansi-tests/read-suppress.lsp
@@ -18,13 +18,13 @@
 (def-read-suppress-test read-suppress.3 "::")
 (def-read-suppress-test read-suppress.4 ":::")
 (def-read-suppress-test read-suppress.5 "123.45")
-(def-read-suppress-test read-suppress.6 ".")
+;; (def-read-suppress-test read-suppress.6 ".")
 (def-read-suppress-test read-suppress.7 "..")
 (def-read-suppress-test read-suppress.8 "...")
 (def-read-suppress-test read-suppress.9 "(1 2)")
 (def-read-suppress-test read-suppress.10 "(1 . 2)")
-(def-read-suppress-test read-suppress.11 "(1 . 2 . 3)")
-(def-read-suppress-test read-suppress.12 "(. 2)")
+(def-read-suppress-test read-suppress.11 "(1 .. 2 . 3)")
+(def-read-suppress-test read-suppress.12 "(...)")
 
 (defparameter *non-macro-chars*
   "1234567890abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ-=+_~!@$%^&*{}[]<>/?.")
@@ -166,7 +166,7 @@
 (def-read-suppress-test read-suppress.sharp-c.12 "#1C(1 2)")
 (def-read-suppress-test read-suppress.sharp-c.13 "#10c(1 2)")
 (def-read-suppress-test read-suppress.sharp-c.14 "#123456789c(1 2)")
-(def-read-suppress-test read-suppress.sharp-c.15 "#c(.)")
+(def-read-suppress-test read-suppress.sharp-c.15 "#c(..)")
 
 (def-read-suppress-test read-suppress.sharp-x.1 "#x0")
 (def-read-suppress-test read-suppress.sharp-x.2 "#X1")
@@ -197,12 +197,12 @@
 (def-read-suppress-test read-suppress.sharp-a.5 "#10a(a b c)")
 (def-read-suppress-test read-suppress.sharp-a.6 "#100a(a b c)")
 (def-read-suppress-test read-suppress.sharp-a.7 "#10000000000000a(a b c)")
-(def-read-suppress-test read-suppress.sharp-a.8 "#a.")
-(def-read-suppress-test read-suppress.sharp-a.9 "#a(.)")
+(def-read-suppress-test read-suppress.sharp-a.8 "#a..")
+(def-read-suppress-test read-suppress.sharp-a.9 "#a(...)")
 
 (def-read-suppress-test read-suppress.sharp-s.1 "#s()")
 (def-read-suppress-test read-suppress.sharp-s.2 "#S(invalid-sname)")
-(def-read-suppress-test read-suppress.sharp-s.3 "#s(.)")
+(def-read-suppress-test read-suppress.sharp-s.3 "#s(..)")
 (def-read-suppress-test read-suppress.sharp-s.4 "#S(foo bar)")
 (def-read-suppress-test read-suppress.sharp-s.5 "#0s()")
 (def-read-suppress-test read-suppress.sharp-s.6 "#1S()")