Move BOM handling a few lines later

1 files changed, 4 insertions, 4 deletions

diff --git a/library/safe.tcl b/library/safe.tcl
index 9c605f2..5baacb5 100644
--- a/library/safe.tcl
+++ b/library/safe.tcl
@@ -987,14 +987,14 @@ proc ::safe::AliasSource {child args} {
 	    fconfigure $f -encoding $encoding
 	}
 	set contents [read $f]
-	# See [Bug 1d26e580cf]
-	if {[string index $contents 0] eq "\uFEFF"} {
-	    set contents [string range $contents 1 end]
-	}
 	close $f
 	::interp eval $child [list info script $file]
     } msg opt]
     if {$code == 0} {
+	# See [Bug 1d26e580cf]
+	if {[string index $contents 0] eq "\uFEFF"} {
+	    set contents [string range $contents 1 end]
+	}
 	set code [catch {::interp eval $child $contents} msg opt]
 	set replacementMsg $msg
     }