diff --git a/ansi-tests/syntax-tokens.lsp b/ansi-tests/syntax-tokens.lsp
index adfdf60faae43d25c20683a82e5e7774a70c21af..82f9bdff6b882d88a93149248e889fcaabc2c38b 100644
--- a/ansi-tests/syntax-tokens.lsp
+++ b/ansi-tests/syntax-tokens.lsp
@@ -62,6 +62,38 @@
 	    
 ;;; Dot tokens
 
+(def-syntax-test syntax.dot-token.1
+  (read-from-string "\\.")
+  |.| 2)
+
+(def-syntax-test syntax.dot-token.2
+  (read-from-string ".\\.")
+  |..| 3)
+
+(def-syntax-test syntax.dot-token.3
+  (read-from-string "\\..")
+  |..| 3)
+
+(def-syntax-test syntax.dot-token.4
+  (read-from-string "..\\.")
+  |...| 4)
+
+(def-syntax-test syntax.dot-token.5
+  (read-from-string ".\\..")
+  |...| 4)
+
+(def-syntax-test syntax.dot-token.6
+  (read-from-string "\\...")
+  |...| 4)
+
+(def-syntax-test syntax.dot-token.7
+  (read-from-string ".||")
+  |.| 3)
+
+(def-syntax-test syntax.dot-token.8
+  (read-from-string "..||")
+  |..| 4)
+
 (def-syntax-test syntax.dot-error.1
   (signals-error (read-from-string ".") reader-error)
   t)