1 files changed, 2 insertions, 2 deletions
diff --git a/code.scm b/code.scm
index fa606185..ec92c347 100755
--- a/code.scm
+++ b/code.scm
@@ -18,8 +18,8 @@
 (for-each (lambda (ev)
             (vcomponent-set-attribute!
              ev "DTSTART"
-             (map (cut string->date <> "~Y~m~dT~H~M~S")
-                  (vcomponent-get-attribute ev "DTSTART"))))
+             ((cut string->date <> "~Y~m~dT~H~M~S")
+              (vcomponent-get-attribute ev "DTSTART"))))
           (vcomponent-children cal))
 
 (display (vcomponent-get-attribute (car (vcomponent-children cal))