Diff

Differences From Artifact [5e7b5c786a]:

To Artifact [6dee5fa1e9]:


95
96
97
98
99
100
101

102
103
104
105





106
107
108
109
110
111
112
95
96
97
98
99
100
101
102




103
104
105
106
107
108
109
110
111
112
113
114







+
-
-
-
-
+
+
+
+
+







				}
			}
			unset -nocomplain ::tclkit_system_encoding
		}

		# If we've still not been able to set the encoding, revert to Tclkit defaults
		if {[encoding system] eq "identity"} {
			catch {
			switch $::tcl_platform(platform) {
				windows		{ encoding system cp1252 }
				macintosh	{ encoding system macRoman }
			        default		{ encoding system iso8859-1 }
				switch $::tcl_platform(platform) {
					windows		{ encoding system cp1252 }
					macintosh	{ encoding system macRoman }
				        default		{ encoding system iso8859-1 }
				}
			}
		}

		# now remount the executable with the correct encoding
		vfs::filesystem unmount [lindex [::vfs::filesystem info] 0]

		set noe [info nameofexecutable]