diff --git a/sass/style.scss b/sass/style.scss
index d041082..ae6a3ce 100644
--- a/sass/style.scss
+++ b/sass/style.scss
@@ -309,6 +309,7 @@ pre code {
       }
     }
     td.dow {
+      line-height: 0.8em;
       width: 2em;
     }
     td.log {
diff --git a/src/Booklog.fs b/src/Booklog.fs
index 1d2ee07..389b0bf 100644
--- a/src/Booklog.fs
+++ b/src/Booklog.fs
@@ -54,8 +54,8 @@ module Misc =
             if d.DayOfWeek = DayOfWeek.Sunday then
                 d
             else
-                let toMonday = (int d.DayOfWeek + 6) % 7 |> float
-                d.AddDays(-toMonday)
+                let toSunday = d.DayOfWeek |> float
+                d.AddDays(-toSunday)
 
         let endDate =
             let d = DateTime(year, 12, 31)
@@ -110,7 +110,7 @@ module Misc =
             |> List.map (fun (dow, dates) ->
                 let dowCell =
                     match dow with
-                    | DayOfWeek.Sunday
+                    | DayOfWeek.Monday
                     | DayOfWeek.Wednesday
                     | DayOfWeek.Friday ->
                         Html.td [