Index: softwareupdate/softwareupdate.tcl ================================================================== --- softwareupdate/softwareupdate.tcl +++ softwareupdate/softwareupdate.tcl @@ -273,11 +273,11 @@ wm transient .update . } proc winPitch {name newversion oldversion} { - set answer [tk_messageBox -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $currentapp. Would you like to download it now?" -type yesno + set answer [tk_messageBox -icon info -title "New Version Available" -message "New Version Available" -detail "$name $newversion is available--you have $oldversion. Would you like to download it now?" -type yesno ] switch -- $answer { yes {