Index: generic/nsf.c =================================================================== diff -u -re9949fac843533c8582109ae8d39012e92731d00 -r42350dcac26a773a14673da7ece98810ba3fd052 --- generic/nsf.c (.../nsf.c) (revision e9949fac843533c8582109ae8d39012e92731d00) +++ generic/nsf.c (.../nsf.c) (revision 42350dcac26a773a14673da7ece98810ba3fd052) @@ -19025,7 +19025,7 @@ nonnull_assert(interp != NULL); nonnull_assert(methodName != NULL); - nonnull_assert(objv != NULL); + /* nonnull_assert(objv != NULL); */ nonnull_assert(cscPtr != NULL); /* 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