diff --git a/src/pd.tk b/src/pd.tk
index 1b4f8a5144222e02546bb6d8afa47cdb84e2002e..246ed48797011b26cc557dd0a99baa705c536dc3 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -7875,10 +7875,10 @@ proc pdtk_tip {w fromc show args} {
 #    }
 	set typeface [get_font_for_size $::font([string trimright $w .c])]
 	set exists [winfo exists $w.tiplabel]
+	catch {$w delete tiparrow}
     if {$show == 0} {
         catch {destroy $w.tiplabel}
         catch {$w delete $w.tipwindow}
-		catch {$w delete tiparrow}
 		set tooltip_visible 0
     } else {
 		set tooltip_visible 1