@@ -284,10 +284,9 @@
 	if (Tcl_InitStubs(interp, "8.4" , 0) == 0L) {
 		return TCL_ERROR;
 	}
 #endif
 
-	Tcl_CreateObjCommand(interp, PACKAGE_NAME, Tcc4tclCreateCmd, NULL, NULL);
-	Tcl_PkgProvide(interp, PACKAGE_NAME, PACKAGE_VERSION);
+	Tcl_CreateObjCommand(interp, "tcc4tcl", Tcc4tclCreateCmd, NULL, NULL);
 
 	return TCL_OK;
 }