1 files changed, 5 insertions, 4 deletions
diff --git a/module/calp/html/view/small-calendar.scm b/module/calp/html/view/small-calendar.scm
index 4d40c57c..06a3342f 100644
--- a/module/calp/html/view/small-calendar.scm
+++ b/module/calp/html/view/small-calendar.scm
@@ -1,16 +1,17 @@
 (define-module (calp html view small-calendar)
   :use-module ((calp html components) :select (xhtml-doc include-css))
   :use-module ((calp html caltable) :select (cal-table))
-  :use-module ((datetime) :select (month- month+ remove-day date->string))
+  :use-module ((datetime) :select (date date+ date- date->string))
   :export (render-small-calendar)
   )
 
 (define (render-small-calendar month standalone)
   (define table (cal-table
                  start-date: month
-                 end-date: (remove-day (month+ month))
-                 next-start: month+
-                 prev-start: month-
+                 end-date: (date- (date+ month (date month: 1))
+                                  (date day: 1))
+                 next-start: (lambda (d) (date+ d (date day: 7)))
+                 prev-start: (lambda (d) (date- d (date day: 7)))
                  ))
   (if standalone
       (xhtml-doc