diff options
| -rw-r--r-- | tissue/web/static.scm | 2 |
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 |