Index: megatest.scm
==================================================================
--- megatest.scm
+++ megatest.scm
@@ -57,11 +57,11 @@
 ;; (declare (uses servermod.import))
 ;; (declare (uses launchmod.import))
 
 ;; (include "call-with-environment-variables/call-with-environment-variables.scm")
 
-(module megatest-main
+(module megatest
 	*
 
   (import scheme
 	  chicken.base
 	  chicken.bitwise
@@ -2659,15 +2659,14 @@
 	       ((1)(exit 1))
 	       ((2)(exit 2))
 	       (else (exit 3)))))
      )
 
-)
-
-(import megatest-main commonmod)
-(import srfi-18)
+;; (import megatest-main commonmod)
+;; (import srfi-18)
 
 (thread-join!
  (thread-start!
   (make-thread main)))
 
+)
 

Index: serialize-env.scm
==================================================================
--- serialize-env.scm
+++ serialize-env.scm
@@ -13,10 +13,29 @@
 (let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
        (zipped-env-str (z3:encode-buffer env-str))
        (b64-env-str    (base64-encode zipped-env-str)))
   (print b64-env-str))
 )
+
+(module serialize-envmod
+   *
+(import scheme
+	z3
+	base64
+	chicken.port
+	chicken.pretty-print
+	chicken.process-context
+	chicken.base
+	)
+
+(define (gen-output)
+(let* ((env-str        (with-output-to-string (lambda () (pp (get-environment-variables)))))
+       (zipped-env-str (z3:encode-buffer env-str))
+       (b64-env-str    (base64-encode zipped-env-str)))
+  (print b64-env-str))
+)
 
 (gen-output)
 
 )
 
+)