diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 601a120..315170f 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -259,9 +259,9 @@
       envvec
       alist)	; Corresponding alist
 
-(define-record-discloser type/env
-  (lambda (e)
-    (list 'env (env:envvec e) (env:alist e))))
+(define-record-resumer type/env
+  (lambda (env)
+    (set-env:envvec env #f)))
 
 (define (env=? e1 e2)
   (and (env:envvec e1)