Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -258,11 +258,11 @@
           [(and (note-count . > . 0) (string=? disposition ""))
            (format "There is <a href=\"/~a#furthernotes\">a note</a> appended."
                    pagenode)]
           [else ""]))
   
-  (cond [(andmap non-empty-string? (list series-part disp-part notes-part))
+  (cond [(ormap non-empty-string? (list series-part disp-part notes-part))
          (format "~a ~a ~a" series-part disp-part notes-part)]
         [else ""]))
     
 
 ;; ~~~ Notes ~~~