Index: tests/varresolutiontest.tcl
===================================================================
diff -u -rdaafc0f0261f6b47a01c7cc8975acdd66f91f360 -r35e0efc0d8851a10c70071c12112b11538ce97af
--- tests/varresolutiontest.tcl	(.../varresolutiontest.tcl)	(revision daafc0f0261f6b47a01c7cc8975acdd66f91f360)
+++ tests/varresolutiontest.tcl	(.../varresolutiontest.tcl)	(revision 35e0efc0d8851a10c70071c12112b11538ce97af)
@@ -1,4 +1,4 @@
-# testing var resolution for namespace-shadowed objects 
+# testing var resolution
 
 package require next; namespace import ::nx::*
 package require xotcl::test
@@ -717,4 +717,20 @@
   }
   ? {lsort [V info vars]} {Z}
   ? {lsort [v info vars]} {z}
-}
\ No newline at end of file
+}
+
+#
+# test [info vars] in eval method
+#
+
+Test case info-vars-in-eval {
+
+  Object create o
+  ? {o eval {
+    set x 1
+    expr {[info vars "x"] eq "x"}
+  }} 1 
+}
+
+
+