trivia: formatting of error responses

2005-04-13 20:46:40 +00:00 · 2005-04-13 20:46:40 +00:00 · 97f730075d
parent 40d7c923a2
commit 97f730075d
1 changed files with 1 additions and 1 deletions
--- 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