diff --git a/ansi-tests/pprint-tab.lsp b/ansi-tests/pprint-tab.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..65abb96a7b3ee73029153d1025c69c6104e2806b
--- /dev/null
+++ b/ansi-tests/pprint-tab.lsp
@@ -0,0 +1,96 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Sat Jul 10 14:08:08 2004
+;;;; Contains: Tests of PPRINT-TAB
+
+(in-package :cl-test)
+
+(compile-and-load "printer-aux.lsp")
+
+;;; No effect in a non-pprint stream
+
+(def-pprint-test pprint-tab.non-pretty.1
+  (with-output-to-string
+    (*standard-output*)
+    (write "A")
+    (pprint-tab :line 10 3)
+    (write "B"))
+  "AB")
+
+(def-pprint-test pprint-tab.non-pretty.2
+  (with-output-to-string
+    (*standard-output*)
+    (write "A")
+    (pprint-tab :section 10 3)
+    (write "B"))
+  "AB")
+
+(def-pprint-test pprint-tab.non-pretty.3
+  (with-output-to-string
+    (*standard-output*)
+    (write "A")
+    (pprint-tab :line-relative 10 3)
+    (write "B"))
+  "AB")
+
+(def-pprint-test pprint-tab.non-pretty.4
+  (with-output-to-string
+    (*standard-output*)
+    (write "A")
+    (pprint-tab :section-relative 10 3)
+    (write "B"))
+  "AB")
+
+(def-ppblock-test pprint-tab.non-pretty.5
+  (progn (write "A") (pprint-tab :line 10 3) (write "B"))
+  "AB"
+  :pretty nil)
+
+(def-ppblock-test pprint-tab.non-pretty.6
+  (progn (write "A") (pprint-tab :section 10 3) (write "B"))
+  "AB"
+  :pretty nil)
+
+(def-ppblock-test pprint-tab.non-pretty.7
+  (progn (write "A") (pprint-tab :line-relative 10 3) (write "B"))
+  "AB"
+  :pretty nil)
+
+(def-ppblock-test pprint-tab.non-pretty.8
+  (progn (write "A") (pprint-tab :section-relative 10 3) (write "B"))
+  "AB"
+  :pretty nil)
+
+
+;;; nil designates *standard-output*
+
+(def-ppblock-test pprint-tab.nil.1
+  (progn (write "A")
+	 (pprint-tab :line 10 1 nil)
+	 (write "B"))
+  "A         B")
+
+;;; t designates *terminal-io*
+
+(def-pprint-test pprint-tab.t.1
+  (with-output-to-string
+    (os)
+    (with-input-from-string
+     (is "")
+     (with-open-stream
+      (*terminal-io* (make-two-way-stream is os))
+      (pprint-logical-block
+       (*terminal-io* nil)
+       (write "A" :stream t)
+       (pprint-tab :line 10 1 t)
+       (write "B" :stream t)))))
+  "A         B")
+
+			    
+
+		       
+			    
+  
+
+
+