Index: tcc4tcl.tcl ================================================================== --- tcc4tcl.tcl +++ tcc4tcl.tcl @@ -106,11 +106,17 @@ foreach {procname cname} $state(procs) { append state(code) " Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);" } } - append state(code) "Tcl_PkgProvide(interp, \"$state(package)\", \"0.0\");\n" + set packageName [lindex $state(package) 0] + set packageVersion [lindex $state(package) 1] + if {$packageVersion == ""} { + set packageVersion "0" + } + + append state(code) "Tcl_PkgProvide(interp, \"$packageName\", \"$packageVersion\");\n" append state(code) " return(TCL_OK);\n" append state(code) "\}" } }