diff --git a/gash/environment.scm b/gash/environment.scm
index 4be796a..3333e9a 100644
--- a/gash/environment.scm
+++ b/gash/environment.scm
@@ -238,8 +238,10 @@ suitable for passing to @code{environ}.  If @var{bindings} is set,
 consider them as part of the set of current variables."
   (let ((exported (hash-fold (lambda (name v acc)
                                (match v
-                                 (#((? values value) #t _)
-                                  (cons `(,name . ,value) acc))
+                                 (#(value #t _)
+                                  (if value
+                                      (cons `(,name . ,value) acc)
+                                      acc))
                                  (_ acc)))
                              '()
                              *variables*)))