Index: crystalize.rkt
==================================================================
--- crystalize.rkt
+++ crystalize.rkt
@@ -192,14 +192,13 @@
s-title)]
[else ""]))
(define disp-part
(cond [(non-empty-string? disposition)
(define-values (mark verb) (disposition-values disposition))
- (format "Now considered ~a ~a."
+ (format "Now considered ~a."
pagenode
disp-note-id
- mark
verb)]
[else ""]))
(define notes-part
(cond [(note-count . > . 1)
(format "There are ~a notes appended."