summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--tissue/web/static.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/tissue/web/static.scm b/tissue/web/static.scm
index 90496cc..69a9d90 100644
--- a/tissue/web/static.scm
+++ b/tissue/web/static.scm
@@ -131,7 +131,7 @@ Log to LOG-PORT. When LOG-PORT is #f, do not log."
(let ((output-file
(string-append output-directory "/" (file-name file))))
(when log-port
- (display output-file log-port)
+ (display (file-name file) log-port)
(newline log-port))
(make-directories (dirname output-file))
(call-with-output-file output-file