diff --git a/ansi-tests/print-cons.lsp b/ansi-tests/print-cons.lsp
index ae0125e0eb20af875016f40122bde21897906f35..4b91a671a6fff01c3ec475e39628fc3380d20820 100644
--- a/ansi-tests/print-cons.lsp
+++ b/ansi-tests/print-cons.lsp
@@ -137,6 +137,36 @@
 	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
   nil)
 
+(deftest print.backquote.random.10
+  (let ((x '`#(,a , .b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.11
+  (let ((x '`#(,a , @b)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
+(deftest print.backquote.random.12
+  (let ((x '`#(,a ,b c)))
+    (and (consp x)
+	 (symbolp (car x))
+	 (loop
+	  repeat 20
+	  nconc (randomly-check-readability (list (car x)) :test #'is-similar))))
+  nil)
+
+(deftest print.backquote.random.13
+  (let ((x '`#(,a ,b c)))
+    (loop
+     repeat 20
+     nconc (randomly-check-readability x :test #'is-similar)))
+  nil)
+
 ;; random circular cons graphs
 (deftest print.cons.random.2
   (loop repeat 50