diff --git a/utils.lisp b/utils.lisp
index b4692ce..66f4cd8 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -65,7 +65,7 @@
 
 (defun where (expr items)
   (mapcan #'(lambda (x)
-	      (when (funcall expr x) x))
+	      (when (funcall expr x) (list x)))
 	  items))
 
 (defun true (f)