diff --git a/scheme/httpd/seval.scm b/scheme/httpd/seval.scm
index a1efc5c..b4d2803 100644
--- a/scheme/httpd/seval.scm
+++ b/scheme/httpd/seval.scm
@@ -57,12 +57,12 @@
       (lambda (iport oport options)
 	(let ((sexp (read-request-sexp req iport)))
 	  (http-syslog (syslog-level debug) "read sexp: ~a" sexp)
-	  (with-tag oport HEAD ()
+	  (with-tag oport head ()
 	    (newline oport)
 	    (emit-title oport "Scheme program output"))
 	  (newline oport)
 	  
-	  (with-tag oport BODY ()
+	  (with-tag oport body ()
 	    (newline oport)
 	    (do/timeout 
 	     10
@@ -70,7 +70,7 @@
 		 ;; Do the computation.
 		 (begin (emit-header oport 2 "Output from execution")
 			(newline oport)
-			(with-tag oport PRE ()
+			(with-tag oport pre ()
 			  (newline oport)
 			  (force-output oport); In case we're gunned down.
 			  (with-current-output-port oport
@@ -78,7 +78,7 @@
 	       
 	       ;; Pretty-print the returned value(s).
 	       (emit-header oport 2 "Return value(s)")
-	       (with-tag oport PRE ()
+	       (with-tag oport pre ()
 		 (for-each (lambda (val) (p val oport))
 			   vals))))))))))