diff --git a/ansi-tests/format-goto.lsp b/ansi-tests/format-goto.lsp
index 0d89dbf3d1cfa45e17997efde3799675a3ccb5fa..d856f6656e65242c0a8f12f1af87ed69793f4ffd 100644
--- a/ansi-tests/format-goto.lsp
+++ b/ansi-tests/format-goto.lsp
@@ -41,6 +41,10 @@
   (format nil "~A~{~A~*~A~}~A" 0 '(1 2 3 4 5 6) 7)
   "013467")
 
+(deftest format.*.9
+  (format nil "~A~{~A~A~A~A~v*~^~A~A~A~A~}~A" 0 '(1 2 3 4 nil 6 7 8 9 #\A) 5)
+  "01234789A5")
+
 ;;; ~:*
 
 (deftest format.\:*.1
@@ -71,6 +75,30 @@
   (format nil "~A~A~v:*~A" 6 7 nil 3)
   "67NIL")
 
+(deftest format.\:*.8
+  (format nil "~A~1{~A~:*~A~}~A" 0 '(1 2 3) 4)
+  "0114")
+
+(deftest format.\:*.9
+  (format nil "~A~1{~A~A~A~:*~A~}~A" 0 '(1 2 3 4) 5)
+  "012335")
+
+(deftest format.\:*.10
+  (format nil "~A~1{~A~A~A~2:*~A~A~}~A" 0 '(1 2 3 4) 5)
+  "0123235")
+
+(deftest format.\:*.11
+  (format nil "~A~{~A~A~A~3:*~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
+  "012312345")
+
+(deftest format.\:*.12
+  (format nil "~A~{~A~A~A~A~4:*~^~A~A~A~A~}~A" 0 '(1 2 3 4) 5)
+  "0123412345")
+
+(def-pprint-test format.\:*.13
+  (format nil "~A~{~A~A~A~A~v:*~^~A~}~A" 0 '(1 2 3 4 nil) 5)
+  "01234NIL5")
+
 ;;; ~@*
 
 (deftest format.@*.1
@@ -101,4 +129,19 @@
   (format nil "~A~A~v@*~A~A" 6 7 2 3 4)
   "6723")
 
+(deftest format.@*.8
+  (format nil "~A~{~A~A~@*~A~A~}~A" 0 '(1 2) 9)
+  "012129")
+
+(deftest format.@*.9
+  (format nil "~A~{~A~A~0@*~A~A~}~A" 0 '(1 2) 9)
+  "012129")
+
+(deftest format.@*.10
+  (format nil "~A~1{~A~A~v@*~A~A~}~A" 0 '(1 2 nil) 9)
+  "012129")
+
+(deftest format.@*.11
+  (format nil "~A~{~A~A~1@*~A~}~A" 0 '(1 2) 9)
+  "01229")