Fixed bug in directory update.

[microbotany.git] / directory.gmi

diff --git a/directory.gmi b/directory.gmi
index fe7b2f8..77c87cc 100755 (executable)
--- a/directory.gmi
+++ b/directory.gmi
@@ -26,7 +26,7 @@
             (lambda (garden-file)
               (let ((g (with-input-from-file garden-file read)))
                 (update-garden! g)
-                (with-output-to-file garden-file (lambda () write g))
+                (with-output-to-file garden-file (lambda () (write g)))
                 (let ((fields (list (garden-prop 'user g)
                                     (seconds->string (garden-prop 'created g))
                                     (garden-stage g))))