diff --git a/src/pd.tk b/src/pd.tk
index f856fc714f4ba00d2fddf9b8f7b00b32c6c62ec7..30d94c7eefd9dec804c7b467b53d9e91f4d25ac3 100644
--- a/src/pd.tk
+++ b/src/pd.tk
@@ -7287,9 +7287,8 @@ proc pdtk_tip {w fromc show args} {
 	variable select_color
 	variable nlet_color
 	variable tooltip_visible
-	variable dofont_fontsize
     global pd_fontlist
-    switch -- $dofont_fontsize {
+    switch -- $::font([string trimright $w .c]) {
         8  { set typeface [lindex $pd_fontlist 0] }
         9  { set typeface [lindex $pd_fontlist 1] }
         10 { set typeface [lindex $pd_fontlist 2] }