2 files changed, 6 insertions, 1 deletions

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 9a8dc5009cf..30f89ec3fcd 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2008-07-30  David Lord <david.lord@phonecoop.coop>
+
+        * calendar/timeclock.el (timeclock-day-projects): Change a `cdr'
+        to `cddr'.
+
 2008-07-29  Chong Yidong  <cyd@stupidchicken.com>
 
         * Makefile.in (ELCFILES): Add mairix.elc.
diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el
index ff4901e1393..9b223e3caa5 100644
--- a/lisp/calendar/timeclock.el
+++ b/lisp/calendar/timeclock.el
@@ -831,7 +831,7 @@ This is only provided for coherency when used by
 
 (defsubst timeclock-day-projects (day)
   "Return a list of all the projects in DAY."
-  (timeclock-entry-list-projects (cdr day)))
+  (timeclock-entry-list-projects (cddr day)))
 
 (defmacro timeclock-day-list-template (func)
   "Template for summing the result of FUNC on each element of DAY-LIST."