--- ./exp_main_tk.c.orig	2007-07-11 15:22:10.000000000 -0500
+++ ./exp_main_tk.c	2009-05-11 16:26:15.000000000 -0500
@@ -374,7 +374,7 @@
 	    goto done;
 	}
     }
-    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 1) == NULL) {
+    if (Tcl_PkgRequire(interp, "Tcl", TCL_VERSION, 0) == NULL) {
 	code = TCL_ERROR;
 	goto done;
     }