From 97f730075d95120da955aa21954dffdd0dc19265 Mon Sep 17 00:00:00 2001
From: vibr <vibr>
Date: Wed, 13 Apr 2005 20:46:40 +0000
Subject: [PATCH] trivia: formatting of error responses

---
 scheme/httpd/response.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/scheme/httpd/response.scm b/scheme/httpd/response.scm
index 5bf4177..5ac0d48 100644
--- a/scheme/httpd/response.scm
+++ b/scheme/httpd/response.scm
@@ -177,7 +177,7 @@
        (close-html (lambda (port args)
 		     (if (not (null? args))
 			 (format port "<br/>~%Further Information:~%"))
-		     (for-each (lambda (x) (format port "<br/>~%~s~%" x)) args)
+		     (for-each (lambda (x) (format port "<br/>~%~A~%" x)) args)
 		     (format port "</p>~%</body>~%</html>~%")))
        		
        (create-response