diff --git a/scheme/httpd/surflets/surflet-handler.scm b/scheme/httpd/surflets/surflet-handler.scm
index b386705..b4d4b8e 100644
--- a/scheme/httpd/surflets/surflet-handler.scm
+++ b/scheme/httpd/surflets/surflet-handler.scm
@@ -70,6 +70,13 @@
 (define (valid-surflet-response-data? data)
   (or (string? data) (list? data)))
 
+(define (surflet-response->string surflet-response)
+  (format #f "#{Surflet-response Status: ~a Content-Type: ~s Headers: ~s~%~s~%"
+	  (surflet-response-status surflet-response)
+	  (surflet-response-content-type surflet-response)
+	  (surflet-response-headers surflet-response)
+	  (surflet-response-data surflet-response)))
+
 
 ;; Surflet-prefix is unused now. Formerly, it contained the virtual
 ;; path prefix for the handler.