@@ -76,19 +76,14 @@
 		if {[info exists state(tk)]} {
 			set state(code) "#include <tk.h>\n$state(code)"
 		}
 		set state(code) "#include <tcl.h>\n\n$state(code)"
 
-		tcc4tcl $dir $state(type) tcc
-
+		# Append additional generated code to support the output type
 		switch -- $state(type) {
 			"memory" {
-				tcc compile $state(code)
-
-				foreach {procname cname} $state(procs) {
-					tcc command $procname $cname
-				}
+				# No additional code needed
 			}
 			"exe" {
 				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
 					append state(code) "int _initProcs(Tcl_Interp *interp) \{\n"
 					
@@ -96,37 +91,72 @@
 						append state(code) "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
 					}
 
 					append state(code) "\}"
 				}
-
-				tcc compile $state(code)
-
-				tcc output_file $state(filename)
 			}
 			"dll" {
 				append state(code) "int [string totitle $state(package)]_Init(Tcl_Interp *interp) \{\n"
 				append state(code) "#ifdef USE_TCL_STUBS\n"
 				append state(code) "  if (Tcl_InitStubs(interp, \"8.4\" , 0) == 0L) \{\n"
 				append state(code) "    return TCL_ERROR;\n"
 				append state(code) "  \}\n"
 				append state(code) "#endif\n"
 
-				foreach {procname cname} $state(procs) {
-					append state(code) "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
+				if {[info exists state(procs)] && [llength $state(procs)] > 0} {
+					foreach {procname cname} $state(procs) {
+						append state(code) "  Tcl_CreateObjCommand(interp, \"$procname\", $cname, NULL, NULL);"
+					}
 				}
 
 				append state(code) "Tcl_PkgProvide(interp, \"$state(package)\", \"0.0\");\n"
 				append state(code) "  return(TCL_OK);\n"
 				append state(code) "\}"
+			}
+		}
+
+		# Generate output code
+		tcc4tcl $dir $state(type) tcc
+
+		switch -- $state(type) {
+			"memory" {
+				tcc compile $state(code)
+
+				foreach {procname cname} $state(procs) {
+					tcc command $procname $cname
+				}
+			}
+
+			"dll" - "exe" {
+				switch -glob -- $::tcl_platform(os)-$::tcl_platform(machine) {
+					"Linux-x86_64" {
+						tcc add_library_path "/lib64"
+						tcc add_library_path "/usr/lib64"
+						tcc add_library_path "/lib"
+						tcc add_library_path "/usr/lib"
+					}
+					"Linux-*" {
+						tcc add_library_path "/lib32"
+						tcc add_library_path "/usr/lib32"
+						tcc add_library_path "/lib"
+						tcc add_library_path "/usr/lib"
+					}
+					default {
+						if {$::tcl_platform(platform) == "unix"} {
+							tcc add_library_path "/lib"
+							tcc add_library_path "/usr/lib"
+						}
+					}
+				}
 
 				tcc compile $state(code)
 
 				tcc output_file $state(filename)
 			}
 		}
 
+		# Cleanup
 		rename $handle ""
 		unset $handle
 	}
 }