# HG changeset patch
# User John Wiegley <johnw@newartisans.com>
# Date 984779307 0
# Node ID 4d655ac2976f10d1d9e877f2123ad1804710c01b
# Parent  57da1ff61f5233b2f8a2178b22dd547e42e76e10
see ChangeLog

diff -r 57da1ff61f52 -r 4d655ac2976f lisp/calendar/timeclock.el
--- a/lisp/calendar/timeclock.el	Fri Mar 16 21:42:51 2001 +0000
+++ b/lisp/calendar/timeclock.el	Fri Mar 16 21:48:27 2001 +0000
@@ -460,7 +460,8 @@
 If TODAY-ONLY is non-nil, the value returned will be relative only to
 the time worked today, and not to past time.  This argument only makes
 a difference if `timeclock-relative' is non-nil."
-  (- (timeclock-find-discrep today-only)))
+  (let ((discrep (timeclock-find-discrep today-only)))
+    (or (and discrep (- discrep)) 0.0)))
 
 (defsubst timeclock-currently-in-p ()
   "Return non-nil if the user is currently clocked in."