Index: tcc4tcl.tcl
==================================================================
--- tcc4tcl.tcl
+++ tcc4tcl.tcl
@@ -18,11 +18,10 @@
 	proc new {{output ""} {pkgName ""}} {
 		variable dir
 		variable count
 
 		set handle ::tcc4tcl::tcc_[incr count]
-		set tcc_handle ::tcc4tcl::tcc_[incr count]
 
 		if {$output == ""} {
 			set type "memory"
 		} else {
 			if {$pkgName == ""} {
@@ -30,11 +29,11 @@
 			} else {
 				set type "package"
 			}
 		}
 
-		array set $handle [list tcc $tcc_handle code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib ""]
+		array set $handle [list code "" type $type filename $output package $pkgName add_inc_path "" add_lib_path "" add_lib ""]
 
 		proc $handle {cmd args} [string map [list @@HANDLE@@ $handle] {
 			set handle {@@HANDLE@@}
 
 			if {$cmd == "go"} {