Index: tests/safe.test
===================================================================
RCS file: /cvsroot/tcl/tcl/tests/safe.test,v
retrieving revision 1.17
diff -u -r1.17 safe.test
--- tests/safe.test	18 Aug 2004 19:59:08 -0000	1.17
+++ tests/safe.test	6 Dec 2004 15:18:19 -0000
@@ -21,6 +21,9 @@
     interp delete $i
 }
 
+set saveAutoPath $::auto_path
+set ::auto_path [info library]
+
 # Force actual loading of the safe package 
 # because we use un exported (and thus un-autoindexed) APIs
 # in this test result arguments:
@@ -478,6 +481,7 @@
 } {1 {wrong # args: should be "encoding convertto ?encoding? data"} {}}
 
 
+set ::auto_path $saveAutoPath
 # cleanup
 ::tcltest::cleanupTests
 return
