Index: Externals/Eagle/lib/Eagle1.0/vendor.eagle
==================================================================
--- Externals/Eagle/lib/Eagle1.0/vendor.eagle
+++ Externals/Eagle/lib/Eagle1.0/vendor.eagle
@@ -141,15 +141,20 @@
       #
       return false
     }
 
     proc setupInterpreterTestPath { channel dir quiet } {
-      object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir
+      set testPath [object invoke -flags +NonPublic Interpreter.GetActive \
+          TestPath]
+
+      if {$dir ne $testPath} then {
+        object invoke -flags +NonPublic Interpreter.GetActive TestPath $dir
 
-      if {!$quiet} then {
-        puts -nonewline $channel [appendArgs \
-            "Set interpreter test path to \"" $dir \".\n]
+        if {!$quiet} then {
+          puts -nonewline $channel [appendArgs \
+              "Set interpreter test path to \"" $dir \".\n]
+        }
       }
     }
 
     checkForTestOverrides stdout \
         [list binary_directory build_base_directory build_directory \