--- generic/tclsample.c.orig	Thu May  7 15:25:10 2009
+++ generic/tclsample.c	Thu May  7 15:25:23 2009
@@ -357,3 +357,3 @@
     }
-    if (Tcl_PkgProvide(interp, "Tclsha1", PACKAGE_VERSION) != TCL_OK) {
+    if (Tcl_PkgProvide(interp, "sample", PACKAGE_VERSION) != TCL_OK) {
 	return TCL_ERROR;
--- tests/sample.test.orig	Thu May  7 15:25:51 2009
+++ tests/sample.test	Thu May  7 15:26:11 2009
@@ -18,3 +18,3 @@
 
-package require Tclsha1
+package require sample
 
--- tests/tclsample.test.orig	Thu May  7 15:25:58 2009
+++ tests/tclsample.test	Thu May  7 15:26:15 2009
@@ -18,3 +18,3 @@
 
-package require Tclsha1
+package require sample