diff --git a/ansi-tests/format-logical-block.lsp b/ansi-tests/format-logical-block.lsp
index e358b0499b21156134c26eeaf5eb9a9a51e0c03f..44a16fddbccc0ce1e1d9f232f7e7b395df10053b 100644
--- a/ansi-tests/format-logical-block.lsp
+++ b/ansi-tests/format-logical-block.lsp
@@ -235,6 +235,28 @@
   "(1 2 3)"
   :margin 2)
 
+(def-pprint-test format.logical-block.27
+  (format nil "~@<**~@;~@{~A~^       ~}~:@>" 1 2 3)
+  "**1
+**2
+**3"
+  :margin 3)
+
+(def-pprint-test format.logical-block.28
+  (format nil "~@<**~@;~@{~A~^       ~}~;XX~:@>" 1 2 3)
+  "**1
+**2
+**3XX"
+  :margin 3)
+
+(def-pprint-test format.logical-block.29
+  (format nil "~:@<**~@;~@{~A~^       ~}~:@>" 1 2 3)
+  "**1
+**2
+**3)"
+  :margin 3)
+
+
 ;;; Circularity detection
 
 (def-pprint-test format.logical-block.circle.1