diff --git a/racket/src/racket/src/print.c b/racket/src/racket/src/print.c
index 38c338849d..21fb216bd6 100644
--- a/racket/src/racket/src/print.c
+++ b/racket/src/racket/src/print.c
@@ -2603,7 +2603,13 @@ print(Scheme_Object *obj, int notdisplay, int compact, Scheme_Hash_Table *ht,
 	/* Needed for srclocs in procedure names */
 	Scheme_Object *idx;
 	int l;
-	
+
+        idx = scheme_hash_get(mt->intern_map, obj);
+        if (!idx)
+          scheme_hash_set(mt->intern_map, obj, obj);
+        else
+          obj = idx;
+        
         idx = get_symtab_idx(mt, obj);
 	if (idx) {
           print_symtab_ref(pp, idx);