Index: modules/ftp/example/hpupdate.tcl
===================================================================
RCS file: /cvsroot/tcllib/tcllib/modules/ftp/example/hpupdate.tcl,v
retrieving revision 1.2
diff -u -r1.2 hpupdate.tcl
--- modules/ftp/example/hpupdate.tcl	2000/07/09 20:13:35	1.2
+++ modules/ftp/example/hpupdate.tcl	2001/08/14 19:37:38
@@ -32,6 +32,10 @@
 
 # load required FTP package library 
 package require ftp 2.0
+package require Tk
+if {![llength [info commands tkButtonInvoke]]} {
+    ::tk::unsupported::ExposePrivateCommand tkButtonInvoke
+}
 
 # LED Colors
 set status(off) "#006666"
