diff --git a/lisp/calendar/appt.el b/lisp/calendar/appt.el
index 29e6fe56b6e..892c76bba0c 100644
--- a/lisp/calendar/appt.el
+++ b/lisp/calendar/appt.el
@@ -394,8 +394,8 @@ displayed in a window:
 		(if (and (< appt-comp-time appt-message-warning-time)
 			 (> (+ cur-comp-time appt-message-warning-time)
 			    appt-max-time))
-		    (setq min-to-app (+ (- (1+ appt-max-time) cur-comp-time))
-			  appt-comp-time))
+		    (setq min-to-app (+ (- (1+ appt-max-time) cur-comp-time)
+			  appt-comp-time)))
 
 		;; issue warning if the appointment time is
 		;; within appt-message-warning time