diff --git a/quad/quadwriter/query.rkt b/quad/quadwriter/query.rkt
index 2db580b1..bb5b1155 100644
--- a/quad/quadwriter/query.rkt
+++ b/quad/quadwriter/query.rkt
@@ -164,7 +164,9 @@
                 (count (query doc "page[1]")))
 
 
-  (andmap section-quad? (query doc "sec[*]"))
-  (andmap page-quad? (query doc "sec[*]:page[1]"))
-  (andmap line-quad? (query doc "sec[*]:page[1]:line[*]"))
+  (check-equal? (map count (query doc "sec[*]")) '(121 242 363))
+  (check-equal? (map count (query doc "sec[*]:page[1]")) '(41 162 283))
+  (check-equal? (map count (query doc "sec[2]:page[1]:line[*]"))
+                '(126 127 128 130 131 132 134 135 136 139 140 141 143 144 145 147 148 149 152 153 154 156 157 158 160 161 162))
+  
   )
\ No newline at end of file