diff --git a/collects/compiler/zo-parse.rkt b/collects/compiler/zo-parse.rkt
index 41865df308..a4e11f586b 100644
--- a/collects/compiler/zo-parse.rkt
+++ b/collects/compiler/zo-parse.rkt
@@ -949,13 +949,7 @@
            (let ([v (read-compact cp)])
              (make-closure 
               v
-              ; XXX Why call gensym here?
-              (let ([s (lam-name v)])
-                 (cond
-                   [(symbol? s) s]
-                   [(vector? s) (vector-ref s 0)]
-                   [else 'closure]))
-              #;(gensym
+              (gensym
                (let ([s (lam-name v)])
                  (cond
                    [(symbol? s) s]