X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=manager%2Fusage-extra.lsp;h=1850723d4a632ea3307fa76219cec34526ab4bc6;hb=36d9d2fd887f26b87c5d20527fcb741540a2aae1;hp=e0cad6a5e3f4df45362be3e4f0b099c4f05551e3;hpb=05a9c528d8aee0373f52fa1bc72250e7f3625e76;p=rrq%2Fhourglass.git

diff --git a/manager/usage-extra.lsp b/manager/usage-extra.lsp
index e0cad6a..1850723 100644
--- a/manager/usage-extra.lsp
+++ b/manager/usage-extra.lsp
@@ -1,7 +1,7 @@
 (define (set-usage-extra m)
   (let ((h (/ m 60)))
     (setf m (- m (* h 60)))
-    (write-file "../control-extra.dat" (format "%d %d\n" h m))))
+    (write-file EXTRAFILE (format "%d %d\n" h m))))
 
 (catch
     (let ((data "")(b "") (c '()) (v nil))