diff --git a/src/view.lisp b/src/view.lisp
index 4ddb096..d83ea2f 100644
--- a/src/view.lisp
+++ b/src/view.lisp
@@ -110,12 +110,16 @@
 	   (format nil "/images/icons/study-cat.png"))
 	  ((and (>= (local-time:timestamp-hour timestamp) 18)
 		(< (local-time:timestamp-hour timestamp) 20))
-	   (cond ((<= (local-time:timestamp-day-of-week timestamp) 5)
-		  (format nil "/images/icons/workout-cat.png"))
-		 ((= (local-time:timestamp-day-of-week timestamp) 6)
-		  (format nil "/images/icons/rock-star-cat.png"))
-		 ((= (local-time:timestamp-day-of-week timestamp) 7)
-		  (format nil "/images/icons/love-cat.png"))))
+	   (cond
+             ;; Sunday
+             ((= (local-time:timestamp-day-of-week timestamp) 0)
+	      (format nil "/images/icons/love-cat.png"))
+             ;; Monday - Friday
+             ((<= (local-time:timestamp-day-of-week timestamp) 5)
+	      (format nil "/images/icons/workout-cat.png"))
+	     ;; Saturday
+	     ((= (local-time:timestamp-day-of-week timestamp) 6)
+	      (format nil "/images/icons/rock-star-cat.png"))))
 	  ((and (>= (local-time:timestamp-hour timestamp) 20)
 		(< (local-time:timestamp-hour timestamp) 22))
 	   (format nil "/images/icons/dinner-cat.png"))