diff --git a/collects/deinprogramm/define-record-procedures.scm b/collects/deinprogramm/define-record-procedures.scm
index a434afb994..c0aff25860 100644
--- a/collects/deinprogramm/define-record-procedures.scm
+++ b/collects/deinprogramm/define-record-procedures.scm
@@ -136,6 +136,10 @@
 				 (custom-write-record '?type-name 
 						      (access-record-fields r raw-generic-access number-of-fields)
 						      port write?)))
+			 (cons prop:print-converter
+			       (lambda (r recur)
+				 (list '?constructor
+				       (recur (raw-accessor-proc r)) ...)))
 			 (cons prop:equal+hash
 			       (list record-equal?
 				     (make-equal-hash (lambda (r i) (raw-generic-access r i)) number-of-fields)