1 files changed, 10 insertions, 6 deletions
diff --git a/module/datetime.scm b/module/datetime.scm
index 8df055de..2b330a9c 100644
--- a/module/datetime.scm
+++ b/module/datetime.scm
@@ -262,14 +262,18 @@
       (time< a b)))
 
 (define-public (datetime< a b)
-  (if (date= (get-date a) (get-date b))
-      (time< (get-time a) (get-time b))
-      (date< (get-date a) (get-date b))))
+  (let ((a (get-datetime a))
+        (b (get-datetime b)))
+    (if (date= (get-date a) (get-date b))
+        (time< (get-time% a) (get-time% b))
+        (date< (get-date a) (get-date b)))))
 
 (define-public (datetime<= a b)
-  (if (date= (get-date a) (get-date b))
-      (time<= (get-time a) (get-time b))
-      (date<= (get-date a) (get-date b))))
+  (let ((a (get-datetime a))
+        (b (get-datetime b)))
+   (if (date= (get-date a) (get-date b))
+       (time<= (get-time% a) (get-time% b))
+       (date<= (get-date a) (get-date b)))))
 
 (define-public (date/-time< a b)
   (datetime< (as-datetime a) (as-datetime b)))