Index: scriptlibs/textsweep/textsweep-main.tcl
==================================================================
--- scriptlibs/textsweep/textsweep-main.tcl
+++ scriptlibs/textsweep/textsweep-main.tcl
@@ -227,11 +227,11 @@
     
     menu .mb.help -tearoff 0
     
     if {[tk windowingsystem] ne "aqua"} {
 	
-	.mb.help add command -label "Help" -command machelp::showhelp
+	.mb.help add command -label "Help" -command machelp::userhelp
     }
     .mb.help add command -label "Contact Code by Kevin" -command machelp::usermail
     .mb.help add command -label "Web Site" -command  machelp::appweb 
     
     if {[tk windowingsystem] ne "aqua"} {