From 9d90846b96468e4acb3926b0ff77661ea67fbd41 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Wed, 19 Mar 2014 17:40:54 -0700
Subject: [PATCH] pagetree? bug

---
 pagetree.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/pagetree.rkt b/pagetree.rkt
index 4fc3052..02cc71e 100644
--- a/pagetree.rkt
+++ b/pagetree.rkt
@@ -32,6 +32,7 @@
 (define+provide (validate-pagetree x)
   (let ([pagenodes (pagetree->list x)])
     (and
+     (txexpr? x)
      (andmap (λ(p) (or (pagenode? p) (error (format "validate-pagetree: \"~a\" is not a valid pagenode" p)))) pagenodes)
      (try (members-unique?/error pagenodes)
           (except [exn:fail? (λ(e) (error (format "validate-pagetree: ~a" (exn-message e))))]))