X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fcontrols-update.lsp;h=7eff0b9f438f1a0534cc0de8dff3437d0287c2af;hb=30dfa8ed48bceb1df62c4accf5b7a680d1b20634;hp=cd7d2ccb58e9874f8f5002273124d88158a636ba;hpb=b84c1745f90aba0e5d04f0a0e024a4e9a84c59a8;p=rrq%2Fhourglass.git

diff --git a/manager/controls-update.lsp b/manager/controls-update.lsp
index cd7d2cc..7eff0b9 100644
--- a/manager/controls-update.lsp
+++ b/manager/controls-update.lsp
@@ -27,7 +27,7 @@
                     (time-parse (lookup (string "limit" i) v))
                     (time-parse (lookup (string "end" i) v))
                     ) c -1))
-      (write-file "../control.dat"
+      (write-file "control.dat"
                   (append (format "; Updated at %s\n(" (date))
                           (join (map string c) "\n " true)
                           ")\n"))