diff --git a/scheme/httpd/surflets/send-html.scm b/scheme/httpd/surflets/send-html.scm
index a678ee8..0725cad 100644
--- a/scheme/httpd/surflets/send-html.scm
+++ b/scheme/httpd/surflets/send-html.scm
@@ -30,10 +30,11 @@
(define (send-html-string html-string)
(do-html-string-sending send html-string))
-;; Helping functions
+;; Helping functions
(define (do-html-sending sender html-tree)
- (sender (make-usual-html-response
- (sxml->string html-tree surflet-sxml-rules))))
+ (do-html-string-sending
+ sender
+ (sxml->string html-tree surflet-sxml-rules)))
(define (do-html-string-sending sender html-string)
(sender (make-usual-html-response html-string)))