diff --git a/src/pd.tk b/src/pd.tk
index c8762631cf29f6cca5ad73255214fde4763df65e..305ed3f9493328e80e7f641adec9a89bb37b7a38 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -7221,8 +7221,8 @@ proc pdtk_tip {w fromc show args} {
 	        -wraplength [winfo width $w] -bg $nlet_color -fg $fg -bd 1 \
 	        -padx 2 -pady 2 -relief flat
 		}
-        set xreal [expr [$w canvasx 0] * -1 + [winfo pointerx $w]-[winfo rootx $w]]
-        set yreal [expr [$w canvasy 0] * -1 + [winfo pointery $w]-[winfo rooty $w]]
+        set xreal [expr [$w canvasx 0] + [winfo pointerx $w]-[winfo rootx $w]]
+        set yreal [expr [$w canvasy 0] + [winfo pointery $w]-[winfo rooty $w]]
 
 		# first figure out default behavior for above/below
 		if { [string match "\{Inlet*" $args] } {