X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~mdw/git/zone/blobdiff_plain/3f0a712769b209f54360e23c543bcc4eda72d149..476808d8bacf084e6632b3aebbe14c28ec49e09a:/frontend.lisp

diff --git a/frontend.lisp b/frontend.lisp
index cb22d3e..0764c3f 100644
--- a/frontend.lisp
+++ b/frontend.lisp
@@ -83,8 +83,11 @@ (define-program
 			   (keyword opt-format
 				    (delete-duplicates
 				     (loop for method in
-					   (generic-function-methods
-					    #'zone:zone-write)
+					   (append
+					    (generic-function-methods
+					     #'zone:zone-write)
+					    (generic-function-methods
+					     #'zone:zone-write-header))
 					   for specs =
 					   (method-specializers method)
 					   if (typep (car specs)