Strip angle brackets off of dispatch-tag names when printing.

diff --git a/src/runtime/gentag.scm b/src/runtime/gentag.scm
index 46d41b7d5960087b2af95067c506420cc8b1c6e9..2826b78ea48f2f8e6b0c2d4938374aa6be82dce5 100644 (file)
--- a/src/runtime/gentag.scm
+++ b/src/runtime/gentag.scm
@@ -170,9 +170,12 @@ USA.
 (define-unparser-method dispatch-tag?
   (simple-unparser-method
    (lambda (tag)
-     (if (dispatch-metatag? tag) 'metatag 'tag))
+     (if (dispatch-metatag? tag) 'dispatch-metatag 'dispatch-tag))
    (lambda (tag)
-     (list (dispatch-tag-name tag)))))
+     (list (let ((name (dispatch-tag-name tag)))
+            (if (symbol? name)
+                (strip-angle-brackets name)
+                name))))))
 
 (define-pp-describer dispatch-tag?
   (lambda (tag)