diff --git a/code/defstruct.lisp b/code/defstruct.lisp
index 0e72db581751094cc5f28acf298b6aea4d9786b4..289d5de4fdca1906a4025fa18f4046a81e560657 100644
--- a/code/defstruct.lisp
+++ b/code/defstruct.lisp
@@ -98,7 +98,7 @@
       (setq name-and-options (list name-and-options)))
   (do* ((options (cdr name-and-options) (cdr options))
 	(name (car name-and-options))
-	(print-function #'default-structure-print)
+	(print-function nil)
 	(pf-supplied-p)
 	(conc-name (concat-pnames name '-))
 	(constructor (concat-pnames 'make- name))
@@ -170,7 +170,7 @@
 	       (unless pf-supplied-p
 		 (setf print-function included-print-function))))
 	    (:print-function
-	     (setf print-function (or (car args) #'default-structure-print))
+	     (setf print-function (car args))
 	     (setf pf-supplied-p t))
 	    (:type (setf saw-type t type (car args)))
 	    (:named (error "The Defstruct option :NAMED takes no arguments."))