diff --git a/collects/tests/compiler/zo-exs.rkt b/collects/tests/compiler/zo-exs.rkt
index 858a557def..3bd665ca04 100644
--- a/collects/tests/compiler/zo-exs.rkt
+++ b/collects/tests/compiler/zo-exs.rkt
@@ -14,50 +14,24 @@
 
 (define (roundtrip ct)
   (define bs (zo-marshal ct))
-  (with-output-to-file "compiled/test_rkt.zo" (λ () (write-bytes bs)) #:exists 'replace)
   (test #:failure-prefix (format "~S" ct)
         (test bs
               (zo-parse (open-input-bytes bs)) => ct
-              (run-compiled-bytes bs #t)
-              (run-compiled-bytes bs #f))))
+              (read-compiled-bytes bs)
+              #;(with-output-to-file "compiled/test_rkt.zo" (λ () (write-bytes bs)) #:exists 'replace)
+              #;(run-compiled-bytes bs #t)
+              #;(run-compiled-bytes bs #f))))
 
 (define mpi (module-path-index-join #f #f))
 
 
 (test
- #;(roundtrip
+ (roundtrip
     (compilation-top 0 
                      (prefix 0 empty empty)
                      (list 1 (list 2 3) (list 2 3) 4 5)))
- ; XXX This should work, but closures have a field that is gensym'ed
  
  (roundtrip
-  (compilation-top 0 
-                   (prefix 0 empty empty)
-                   (let* ([ph (make-placeholder #f)]
-                          [x (application (closure 
-                               (lam 'name
-                                    empty
-                                    0 
-                                    empty
-                                    #f
-                                    #()
-                                    empty
-                                    0
-                                    ph)
-                               'name) empty)])
-                     (placeholder-set! ph x)
-                     (let ([c (make-reader-graph x)])
-                       (closure (lam 'name2
-                                     empty
-                                     0
-                                     empty
-                                     #f
-                                     #()
-                                     empty
-                                     0
-                                     (seq (list c c))) 'name2)))))
- #;(roundtrip
   (compilation-top 0 
                    (prefix 0 empty empty)
                    (let* ([ph (make-placeholder #f)]
@@ -108,39 +82,26 @@
       (toplevel 0 0 #f #f)
       #(racket/language-info get-info #f)
       #t)))
- #;(roundtrip 
+
+ (roundtrip 
     (compilation-top 0 
                      (prefix 0 empty empty)
                      (current-directory)))
  
- #;(roundtrip 
+ (roundtrip 
     (compilation-top 0 
                      (prefix 0 empty empty)
                      (list (current-directory))))
  
- #;(roundtrip
+ (roundtrip
     (compilation-top                                            
      0                                                          
      (prefix 0 empty empty)
      (cons #hash()
            #hash())))
  
- #;(roundtrip
+ (roundtrip
     (compilation-top                                            
      0                                                          
      (prefix 0 empty empty)
-     #hash()))
- 
- #;(local [(define (hash-test make-hash-placeholder)
-             (roundtrip 
-              (compilation-top 0 
-                               (prefix 0 empty empty)
-                               (local [(define ht-ph (make-placeholder #f))
-                                       (define ht (make-hash-placeholder (list (cons 'g ht-ph))))]
-                                 (placeholder-set! ht-ph ht)
-                                 (make-reader-graph ht)))))]
-     (hash-test make-hash-placeholder)
-     (hash-test make-hasheq-placeholder)
-     (hash-test make-hasheqv-placeholder)))
-
-
+     #hash())))
\ No newline at end of file