diff options
| -rw-r--r-- | library/console.tcl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/library/console.tcl b/library/console.tcl index e59e6e2..30c4d88 100644 --- a/library/console.tcl +++ b/library/console.tcl @@ -215,7 +215,7 @@ proc ::tk::ConsoleSource {} { [list [mc "Tcl Scripts"] .tcl] \ [list [mc "All Files"] *]]] if {$filename ne ""} { - set cmd [list source -encoding utf-8 $filename] + set cmd [list source $filename] if {[catch {consoleinterp eval $cmd} result]} { ConsoleOutput stderr "$result\n" } |