From 69ea6ae13fb3a6ba6860a4ea6a9463c57a994bce Mon Sep 17 00:00:00 2001
From: interp <interp>
Date: Tue, 13 May 2003 14:02:24 +0000
Subject: [PATCH] Use do-html-string-sending in do-html-sending

---
 scheme/httpd/surflets/send-html.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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)))