diff --git a/collects/typed-racket/rep/rep-utils.rkt b/collects/typed-racket/rep/rep-utils.rkt
index 35cb1263b0..d5e5d4c1f8 100644
--- a/collects/typed-racket/rep/rep-utils.rkt
+++ b/collects/typed-racket/rep/rep-utils.rkt
@@ -370,22 +370,3 @@
 
 (define (replace-syntax rep stx)
   (replace-field rep stx 3))
-
-;; useful for debugging printing only
-(define (converter v basic sub)
-  (define (gen-constructor sym)
-    (string->symbol (string-append "make-" (substring (symbol->string sym) 7))))
-  (match v
-    [(? (lambda (e) (or (Filter? e)
-                        (Object? e)
-                        (PathElem? e)))
-        (app (lambda (v) (vector->list (struct->vector v)))
-             (list-rest tag seq fv fi stx vals)))
-     `(,(gen-constructor tag) ,@(map sub vals))]
-    [(? Type?
-        (app (lambda (v) (vector->list (struct->vector v))) (list-rest tag seq fv fi stx key vals)))
-     `(,(gen-constructor tag) ,@(map sub vals))]
-    [_ (basic v)]))
-
-;(require mzlib/pconvert)
-;(current-print-convert-hook converter)