diff --git a/ansi-tests/syntax.lsp b/ansi-tests/syntax.lsp
index f5b7a534ffa838ded55b1e89f84e63ba5c1b1ad5..bcb40009d3615ba7ac88723638df78dd6663513e 100644
--- a/ansi-tests/syntax.lsp
+++ b/ansi-tests/syntax.lsp
@@ -165,6 +165,7 @@
 		(list (list name c s val)))))))
   nil)
 
+#|
 (def-syntax-test syntax.escape.whitespace.2
   (let ((names '("Tab" "Newline" "Linefeed" "Space" "Return" "Page")))
     (loop for name in names
@@ -176,6 +177,7 @@
 	      (unless (eql val (intern (string c)))
 		(list (list name c s val)))))))
   nil)
+|#
 
 (def-syntax-test syntax.multiple-escape.invalid.backspace
   (let ((c (name-char "Backspace")))