Index: tests/interp.test
===================================================================
diff -u -r0f881e4bc45e927c8d84c1b1b468ef7537cb9b03 -rc4f449cb353be812ba6502ef8e9587e87881f59b
--- tests/interp.test	(.../interp.test)	(revision 0f881e4bc45e927c8d84c1b1b468ef7537cb9b03)
+++ tests/interp.test	(.../interp.test)	(revision c4f449cb353be812ba6502ef8e9587e87881f59b)
@@ -23,10 +23,11 @@
   $i hide foo
 
   ? {$i eval [list info commands ::nx::Object]} ""
+  $i eval [list set ::auto_path $::auto_path]
   $i eval [list package req nx]
   ? {$i eval [list info commands ::nx::Object]} ::nx::Object
   #
-  # Tcl's hiding mechansim only applies to objects/classes in the
+  # Tcl's hiding mechanism only applies to objects/classes in the
   # top-level namespace. So any non-globally namespaced ones and
   # nested objects are not concerned ...
   #
@@ -164,6 +165,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval {
     package req nx
     nx::Object create ::o2 {
@@ -202,6 +204,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     nx::Object create ::o {
@@ -255,6 +258,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     nx::Object create ::o {
@@ -313,6 +317,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     namespace eval ::ns1 {
@@ -358,6 +363,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     nx::Object create ::o {
@@ -395,6 +401,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     nx::Object create ::o {
@@ -431,6 +438,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     proc ::bar {} {
@@ -475,6 +483,7 @@
   global i
 
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval { 
     package req nx
     nx::Object create ::o {
@@ -510,6 +519,7 @@
   #
   global i
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval {
     package req nx
     ::proc ::FOO args {return OK}
@@ -587,6 +597,7 @@
   #
   global i
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval {
     package req nx
     nx::Object create x {
@@ -650,6 +661,7 @@
 nx::test case hidden-mixins-procsearch {
   global i
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval {
     package req nx
     nx::Object create x {
@@ -706,6 +718,7 @@
 nx::test case hidden-mixins-mixinlists {
   global i
   set i [interp create]
+  $i eval [list set ::auto_path $::auto_path]
   $i eval {
     package req nx
     nx::Object create o