Use dispatch-tag-print-name.

diff --git a/src/runtime/record.scm b/src/runtime/record.scm
index bfaee352468582ee0ca7a156e31eba48d578ac05..a6e711c3d32ddd493647987656a165fea3d41f50 100644 (file)
--- a/src/runtime/record.scm
+++ b/src/runtime/record.scm
@@ -521,15 +521,14 @@ USA.
 (define-print-method record?
   (standard-print-method
    (lambda (record)
-     (strip-angle-brackets
-      (dispatch-tag-name (record-type-descriptor record))))))
+     (dispatch-tag-print-name (record-type-descriptor record)))))
 
 (add-boot-init!
  (lambda ()
    (define-print-method record-type?
      (standard-print-method 'record-type
        (lambda (type)
-        (list (dispatch-tag-name type)))))))
+        (list (dispatch-tag-print-name type)))))))
 
 (define-pp-describer %record?
   (lambda (record)