diff --git a/scheme/env/disclosers.scm b/scheme/env/disclosers.scm
index 11fcceb..3054d70 100644
--- a/scheme/env/disclosers.scm
+++ b/scheme/env/disclosers.scm
@@ -47,12 +47,12 @@
 	  (or (template-print-name tem) (template-id tem)))))
   
 (define-method &disclose ((obj :code-vector))
-  (list 'byte-vector (code-vector-length obj))
-; (cons 'code-vector
-;       (let ((z (code-vector-length obj)))
-;         (do ((i (- z 1) (- i 1))
-;              (l '() (cons (code-vector-ref obj i) l)))
-;             ((< i 0) l))))
+;  (list 'byte-vector (code-vector-length obj))
+ (cons 'byte-vector
+       (let ((z (code-vector-length obj)))
+         (do ((i (- z 1) (- i 1))
+             (l '() (cons (code-vector-ref obj i) l)))
+             ((< i 0) l))))
   )
 
 (define-method &disclose ((obj :channel))