diff --git a/collects/lang/private/teach.rkt b/collects/lang/private/teach.rkt
index ae4150420c..d5febf48df 100644
--- a/collects/lang/private/teach.rkt
+++ b/collects/lang/private/teach.rkt
@@ -824,6 +824,8 @@
 									      #,@(map-with-index (lambda (i _)
 												   #`(recur (raw-generic-access r #,i)))
 												 fields))))
+                                                                (cons prop:custom-print-quotable
+                                                                      'never)
 								(cons prop:custom-write
                                                                       ;; Need a transparent-like printer, but hide auto field.
                                                                       ;; This simplest way to do that is to create an instance