@@ -85,11 +85,11 @@
 	}
 
 	proc _cproc {handle name adefs rtype {body "#"}} {
 		upvar #0 $handle state
 
-		set wrap [::tcc4tcl::wrap $name $adefs $rtype $body]
+		set wrap [uplevel 1 [list ::tcc4tcl::wrap $name $adefs $rtype $body]]
 
 		set wrapped [lindex $wrap 0]
 		set wrapper [lindex $wrap 1]
 		set tclname [lindex $wrap 2]
 
@@ -323,11 +323,11 @@
 	if {$body ne "#"} {
 		append code "static $rtype2 ${cname}([join $cargs {, }]) \{\n"
 		append code $body
 		append code "\}\n"
 	} else {
-		append code "#define $cname $name" "\n"
+		append code "#define $cname [namespace tail $name]" "\n"
 	}
 
 	# Create wrapper function
 	## Supported input types
 	##   Tcl_Interp*