Diff

Differences From Artifact [5e7b5c786a]:

To Artifact [6dee5fa1e9]:


    95     95   				}
    96     96   			}
    97     97   			unset -nocomplain ::tclkit_system_encoding
    98     98   		}
    99     99   
   100    100   		# If we've still not been able to set the encoding, revert to Tclkit defaults
   101    101   		if {[encoding system] eq "identity"} {
   102         -			switch $::tcl_platform(platform) {
   103         -				windows		{ encoding system cp1252 }
   104         -				macintosh	{ encoding system macRoman }
   105         -			        default		{ encoding system iso8859-1 }
          102  +			catch {
          103  +				switch $::tcl_platform(platform) {
          104  +					windows		{ encoding system cp1252 }
          105  +					macintosh	{ encoding system macRoman }
          106  +				        default		{ encoding system iso8859-1 }
          107  +				}
   106    108   			}
   107    109   		}
   108    110   
   109    111   		# now remount the executable with the correct encoding
   110    112   		vfs::filesystem unmount [lindex [::vfs::filesystem info] 0]
   111    113   
   112    114   		set noe [info nameofexecutable]