@@ -50,10 +50,16 @@
 			uplevel 1 [list ::tcc4tcl::_$cmd $handle {*}$args]
 		}]
 
 		return $handle
 	}
+
+	proc _linktclcommand {cSymbol tclCommand} {
+		upvar #0 $handle state
+
+		lappend state(procs) $cSymbol $tclCommand
+	}
 
 	proc _cproc {handle name adefs rtype {body "#"}} {
 		upvar #0 $handle state
 
 		set wrap [::tcc4tcl::wrap $name $adefs $rtype $body]