diff --git a/ansi-tests/load-printer.lsp b/ansi-tests/load-printer.lsp
index f4b074dc7e00d02ffe4d0a00798cfeb38e3a46b0..8dafc86ea2fd0897ad566b5a282f7b6a1980772b 100644
--- a/ansi-tests/load-printer.lsp
+++ b/ansi-tests/load-printer.lsp
@@ -29,3 +29,4 @@
 (load "pprint-fill.lsp")
 (load "pprint-linear.lsp")
 (load "pprint-tabular.lsp")
+(load "pprint-indent.lsp")
\ No newline at end of file
diff --git a/ansi-tests/pprint-indent.lsp b/ansi-tests/pprint-indent.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..0f81b2a2a2756d19988219c07dd318122b4d0f9c
--- /dev/null
+++ b/ansi-tests/pprint-indent.lsp
@@ -0,0 +1,48 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat Jul  3 08:50:40 2004
+;;;; Contains: Tests of PPRINT-INDENT
+
+(in-package :cl-test)
+
+(deftest pprint-indent.1
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (with-open-stream (*standard-output* (make-string-output-stream))
+		       (pprint-indent :block 0))))
+  nil)
+
+(deftest pprint-indent.2
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (with-open-stream (*standard-output* (make-broadcast-stream))
+		       (pprint-indent :current 0))))
+  nil)
+
+(deftest pprint-indent.3
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (with-open-stream (s (make-string-output-stream))
+		       (pprint-indent :current 10 s))))
+  nil)
+
+(deftest pprint-indent.4
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (with-open-stream (s (make-string-output-stream))
+		       (pprint-indent :block 1/2 s))))
+  nil)
+
+(deftest pprint-indent.5
+  (my-with-standard-io-syntax
+   (let ((*print-pretty* nil))
+     (with-open-stream (s (make-string-output-stream))
+		       (pprint-indent :block 0.1 s))))
+  nil)
+
+
+
+
+
+
+