(define send/suspend 
  (lambda (page-producer)
    (call-with-current-continuation 
     (lambda (k)
       (let ((url (register-continuation! k)))
	 (write-xml/content
	  (xexpr->xml (page-producer url)))
	 (exit))))))