Fix a typo.

Ignore-this: 2cba86c6e487475ea4fe3e99a99674c6

darcs-hash:f72812bef6f63bdb55c46d29f8e0bf09d311491c

1 files changed, 1 insertions, 1 deletions

diff --git a/utils.lisp b/utils.lisp
index cc7dee1..fab371a 100644
--- a/utils.lisp
+++ b/utils.lisp
@@ -144,7 +144,7 @@ after another in any arbitrary order."
                    (format out control value)
                    (format out "%~A%" substring))
                (setq last-match-end end))))
-         (format destination (subseq date-control-string last-match-end)))))))
+         (format out (subseq date-control-string last-match-end)))))))
 
 
 (defun compute-script-last-modified-date ()