diff --git a/gash/eval.scm b/gash/eval.scm
index 1e33744..ad302a7 100644
--- a/gash/eval.scm
+++ b/gash/eval.scm
@@ -163,7 +163,7 @@ and arithmetic substitions."
   ;; XXX: It probably makes more sense to exclude '#f' expressions at
   ;; the syntax level.  For now, we filter them out here.
   (if exps
-      (match (filter values exps)
+      (match (filter identity exps)
         (() noop)
         (exps (lambda () (eval-sh `(<sh-begin> ,@exps)))))
       (lambda () (set-status! 0))))