diff --git a/tekuti/page-helpers.scm b/tekuti/page-helpers.scm
index effdc00..a76074e 100644
--- a/tekuti/page-helpers.scm
+++ b/tekuti/page-helpers.scm
@@ -95,7 +95,7 @@
           (lambda (port)
             (if sxml
                 (begin
-                  (display doctype port)
+                  (if doctype (display doctype port))
                   (sxml->xml sxml port))))))
 
 (define (unparse-www-form-urlencoded alist)