Index: tests/methods.test
===================================================================
diff -u -r3ccbf1417d84765af57693523035ecf857e37428 -r42350dcac26a773a14673da7ece98810ba3fd052
--- tests/methods.test	(.../methods.test)	(revision 3ccbf1417d84765af57693523035ecf857e37428)
+++ tests/methods.test	(.../methods.test)	(revision 42350dcac26a773a14673da7ece98810ba3fd052)
@@ -1524,6 +1524,19 @@
   ? {C info object method deprecated obar} 1
 }
 
+nx::test case eval-next {
+  ? {nx::Object eval {::nsf::next}} ""
+  ? {nx::Object eval {::nsf::current nextmethod}} ""
+  nx::Object create ::o {
+    :public object method foo {} {
+      lappend _ [nx::Object eval {::nsf::current method}]
+      lappend _ [nx::Object eval {::nsf::current callingmethod}]
+      lappend _ [nx::Object eval {::nsf::current callingobject}]
+    }
+    ? [list set _ [:foo]] "eval foo ::o"
+  }
+}
+
 #
 # Local variables:
 #    mode: tcl