;; -*- scheme -*- -p 
(proxy! #:content-type 
	(lambda (ct) 
		(if (regexp-match #px"^application/.+xml.*$" ct)
		    "text/xml"
		    ct)))