diff --git a/ansi-tests/compile.lsp b/ansi-tests/compile.lsp
index 7de55a446ba8043b63f342e213b36abbbdc6e555..5902b3c558dbe8b46de694a3d452848bf18efef5 100644
--- a/ansi-tests/compile.lsp
+++ b/ansi-tests/compile.lsp
@@ -78,14 +78,12 @@
     (funcall (compile nil `(lambda () (eq ',x ',x)))))
   t)
 
+(deftest compile.7
+  (let ((x (copy-seq "abc")))
+    (eq x (funcall (compile nil `(lambda () ,x)))))
+  t)
 
-
-
-     
-  
-
-	 
-
-
-
-
+(deftest compile.8
+  (let ((x (list 'a 'b)))
+    (eq x (funcall (compile nil `(lambda () ',x)))))
+  t)