diff --git a/lisp/champagne.el b/lisp/champagne.el
index 6ac4ac2..68e6da6 100644
--- a/lisp/champagne.el
+++ b/lisp/champagne.el
@@ -210,6 +210,7 @@ degenerate.  Returns nil if TIME-STRING is invalid according to
               (hhmm (unless (< hhmm 0) hhmm)))
     (setf (decoded-time-minute now) (% hhmm 100))
     (setf (decoded-time-hour now) (/ hhmm 100))
+    (setf (decoded-time-second now) 0)
     (let ((time (time-convert (encode-time now) 'list)))
       (if (time-less-p (current-time) time)
           time