Index: lib/tooltip/tooltip.tcl
==================================================================
--- lib/tooltip/tooltip.tcl
+++ lib/tooltip/tooltip.tcl
@@ -319,10 +319,13 @@
     set b $G(TOPLEVEL)
     # Use late-binding msgcat (lazy translation) to support programs
     # that allow on-the-fly l10n changes
     lassign $msg txt img inf
     $b.f.label configure -text [::msgcat::mc $txt] -image $img
+    if {$inf ne {}} {
+	set inf [::msgcat::mc $inf]
+    }
     if {$inf eq {}} {
 	grid remove $b.f.info
     } else {
 	$b.f.info configure -text [::msgcat::mc $inf]
 	grid $b.f.info

