diff --git a/ansi-tests/load-printer.lsp b/ansi-tests/load-printer.lsp
index 5acb9e871fb9907fa482c5ba5f94b8f33753b4a1..f4668198966da67b137627a996310079658d1d71 100644
--- a/ansi-tests/load-printer.lsp
+++ b/ansi-tests/load-printer.lsp
@@ -23,3 +23,4 @@
 (load "print-random-state.lsp")
 (load "print-pathname.lsp")
 (load "print-structure.lsp")
+(load "printer-control-vars.lsp")
diff --git a/ansi-tests/printer-control-vars.lsp b/ansi-tests/printer-control-vars.lsp
new file mode 100644
index 0000000000000000000000000000000000000000..6b854c9c0bf323b1d9942e663db748e8935fc739
--- /dev/null
+++ b/ansi-tests/printer-control-vars.lsp
@@ -0,0 +1,52 @@
+;-*- Mode:     Lisp -*-
+;;;; Author:   Paul Dietz
+;;;; Created:  Thu Jun  3 06:25:52 2004
+;;;; Contains: Tests of initial values of printer control variables
+
+(in-package :cl-test)
+
+(deftest print-base.init.1
+  *print-base*
+  10)
+
+(deftest print-radix.init.1
+  *print-radix*
+  nil)
+
+(deftest print-case.init.1
+  *print-case*
+  :upcase)
+
+(deftest print-circle.init.1
+  *print-circle*
+  nil)
+
+(deftest print-escape.init.1
+  (notnot *print-escape*)
+  t)
+
+(deftest print-gensym.init.1
+  (notnot *print-gensym*)
+  t)
+
+(deftest print-level.init.1
+  *print-level*
+  nil)
+
+(deftest print-length.init.1
+  *print-length*
+  nil)
+
+(deftest print-lines.init.1
+  *print-lines*
+  nil)
+
+(deftest print-readably.init.1
+  *print-readably*
+  nil)
+
+(deftest print-right-margin.init.1
+  *print-right-margin*
+  nil)
+
+