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) "\}"
 			}
 		}