Index: tcc4tcl.tcl
==================================================================
--- tcc4tcl.tcl
+++ tcc4tcl.tcl
@@ -118,10 +118,16 @@
 		variable dir
 
 		upvar #0 $handle state
 
 		set code $state(code)
+
+		if {$state(type) == "exe" || $state(type) == "dll"} {
+			if {[info exists state(procs)] && [llength $state(procs)] > 0} {
+				set code "int _initProcs(Tcl_Interp *interp);\n\n$code"
+			}
+		}
 
 		if {[info exists state(tk)]} {
 			set code "#include <tk.h>\n$code"
 		}
 		set code "#include <tcl.h>\n\n$code"