@@ -18,11 +18,11 @@
     namespace import ::tcltest::*
 }
 
 # Get common functions
 if {[file exists [file join $path common.tcl]]} {
-    source [file join $path common.tcl]
+    source -encoding utf-8 [file join $path common.tcl]
 }
 
 set ::tcltest::testSingleFile false
 set ::tcltest::testsDirectory [file dir [info script]]