Index: tcc4tcl.tcl
==================================================================
--- tcc4tcl.tcl
+++ tcc4tcl.tcl
@@ -132,11 +132,11 @@
     set outfile $(-dir)/$(-name)[info sharedlibextension]
     ::tcc4tcl::to_dll [set ${name}::code] $outfile $(-libs)
 }
 #---------------------------------------------------------------------
 proc ::tcc4tcl::wrap {name adefs rtype {body "#"}} {
-  set cname c_$name
+  set cname c_[string map [list ":" "_"] $name]
   set wname tcl_$name
   array set types {}
   set names {}
   set cargs {}
   set cnames {}