diff --git a/ansi-tests/format-i.lsp b/ansi-tests/format-i.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..a58124eb5e6238e6828c7f2efae0c4521662d748
--- /dev/null
+++ b/ansi-tests/format-i.lsp
@@ -0,0 +1,92 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat Aug 21 07:01:36 2004
+;;;; Contains: Tests for the ~I format directive
+
+(in-package :cl-test)
+
+(compile-and-load "printer-aux.lsp")
+
+;;; pprint-indent.9
+(def-pprint-test format.i.1
+  (format nil "~<M~3:i~:@_M~:>" '(M M))
+  "M
+    M")
+
+;;; See pprint-indent.10
+(def-pprint-test format.i.2
+  (format nil "~:<M~1:I~@:_M~:>" '(M M))
+  "(M
+   M)")
+
+;;; See pprint-indent.11
+(def-pprint-test format.i.3
+  (format nil "~<(~;M~-1:i~:@_M~;)~:>" '(M M))
+  "(M
+ M)")
+
+(def-pprint-test format.i.4
+  (format nil "~:<M~-1:i~:@_M~:>" '(M M))
+  "(M
+ M)")
+
+(def-pprint-test format.i.5
+  (format nil "~<(~;M~:I~:@_M~;)~:>" '(M M))
+  "(M
+  M)")
+
+(def-pprint-test format.i.6
+  (format nil "~<(~;M~v:i~:@_M~;)~:>" '(nil))
+  "(M
+  M)")
+
+(def-pprint-test format.i.7
+  (format nil "~:<M~-2:i~:@_M~:>" '(M M))
+  "(M
+M)")
+
+(def-pprint-test format.i.8
+  (format nil "~<M~:i~:@_M~:>" '(M M))
+  "M
+ M")
+
+;;; See pprint-indent.13
+(def-pprint-test format.i.9
+  (format nil "~<MMM~I~:@_MMMMM~:>" '(M M))
+  "MMM
+MMMMM")
+
+(def-pprint-test format.i.10
+  (format nil "~:<MMM~I~:@_MMMMM~:>" '(M M))
+  "(MMM
+ MMMMM)")
+
+(def-pprint-test format.i.11
+  (format nil "~<MMM~1I~:@_MMMMM~:>" '(M M))
+  "MMM
+ MMMMM")
+
+(def-pprint-test format.i.12
+  (format nil "XXX~<MMM~1I~:@_MMMMM~:>" '(M M))
+  "XXXMMM
+    MMMMM")
+
+(def-pprint-test format.i.13
+  (format nil "XXX~<MMM~I~:@_MMMMM~:>" '(M M))
+  "XXXMMM
+   MMMMM")
+
+(def-pprint-test format.i.14
+  (format nil "XXX~<MMM~-1I~:@_MMMMM~:>" '(M M))
+  "XXXMMM
+  MMMMM")
+
+(def-pprint-test format.i.15
+  (format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(nil))
+  "XXXMMM
+   MMMMM")
+
+(def-pprint-test format.i.16
+  (format nil "XXX~<MMM~vI~:@_MMMMM~:>" '(2))
+  "XXXMMM
+     MMMMM")
diff --git a/ansi-tests/load-format.lsp b/ansi-tests/load-format.lsp
index 637f5dc7216b330ffd46f2cc59234cd9bafcdb71..7a1012e213a114b110d72fa20f251dadb0cc30ba 100644
--- a/ansi-tests/load-format.lsp
+++ b/ansi-tests/load-format.lsp
@@ -31,6 +31,4 @@
 ;;; 22.3.5
 (load "format-underscore.lsp")
 (load "format-logical-block.lsp")
-
-
-
+(load "format-i.lsp")