Index: tcc4tcl.tcl
==================================================================
--- tcc4tcl.tcl
+++ tcc4tcl.tcl
@@ -797,8 +797,8 @@
 	append cbody "}" "\n"
 
 	return [list $code $cbody $wname]
 }
 
-namespace eval tcc4tcl {namespace export cproc new}
+namespace eval tcc4tcl {namespace export cproc}
 
 package provide tcc4tcl "@@VERS@@"