diff --git a/src/xfns.c b/src/xfns.c
index 43c55cc..917fdd5 100644
--- a/src/xfns.c
+++ b/src/xfns.c
@@ -6526,8 +6526,10 @@ static void compute_tip_xy (struct frame *, Lisp_Object, Lisp_Object,
 {
   if (!NILP (tip_timer))
     {
-      call1 (Qcancel_timer, tip_timer);
+      Lisp_Object timer = tip_timer;
+
       tip_timer = Qnil;
+      call1 (Qcancel_timer, timer);
     }
 
 #ifdef USE_GTK
@@ -6759,8 +6761,10 @@ with offset DY added (default is -10).
 	  tip_f = XFRAME (tip_frame);
 	  if (!NILP (tip_timer))
 	    {
-	      call1 (Qcancel_timer, tip_timer);
+	      Lisp_Object timer = tip_timer;
+
 	      tip_timer = Qnil;
+	      call1 (Qcancel_timer, timer);
 	    }
 
 	  block_input ();