diff --git a/tekuti/page.scm b/tekuti/page.scm
index 182ea02..17cafa8 100644
--- a/tekuti/page.scm
+++ b/tekuti/page.scm
@@ -347,9 +347,11 @@
       (if (pair? with)
           (fold (lambda (tag cont)
                   (let ((posts (hash-ref tags tag '())))
-                    (lambda (post)
-                      (or (member (post-key post) posts)
-                          (cont post)))))
+                    (if (pair? posts)
+                        (lambda (post)
+                          (or (member (post-key post) posts)
+                              (cont post)))
+                        cont)))
                 (lambda (post) #f)
                 with)
           (lambda (post) #t)))