Index: Externals/Eagle/lib/Eagle1.0/vendor.eagle
==================================================================
--- Externals/Eagle/lib/Eagle1.0/vendor.eagle
+++ Externals/Eagle/lib/Eagle1.0/vendor.eagle
@@ -32,21 +32,23 @@
 #       namespace if this script actually ends up being evaluated in Tcl.
 #
 namespace eval ::Eagle {
   if {[isEagle]} then {
     proc checkForVendorQuiet { {name ""} } {
-      if {[info exists ::env(checkForVendorQuiet)]} then {
-        return true
-      }
-
-      if {[string length $name] > 0} then {
-        set envVarName [appendArgs quiet [string toupper \
-            [string index $name 0]] [string range $name 1 end]]
-
-        if {[info exists ::env($envVarName)]} then {
+      if {![interp issafe]} then {
+        if {[info exists ::env(checkForVendorQuiet)]} then {
           return true
         }
+
+        if {[string length $name] > 0} then {
+          set envVarName [appendArgs quiet [string toupper \
+              [string index $name 0]] [string range $name 1 end]]
+
+          if {[info exists ::env($envVarName)]} then {
+            return true
+          }
+        }
       }
 
       return false
     }
 
@@ -465,15 +467,15 @@
     set no(emitCombinedFlagsIfNone) 1
 
     #
     # NOTE: Force use of the native library pre-loader when applicable.
     #
-    if {[isWindows]} then {
+    if {![interp issafe] && [isWindows]} then {
       set no(deleteSqliteImplicitNativeFiles) 1
       set no(copySqliteImplicitNativeFiles) 1
     }
   }
 }
 
 ###############################################################################
 ############################### END VENDOR CODE ###############################
 ###############################################################################