Index: tests/submethods.test
===================================================================
diff -u -N -r2c338821c949f8eb468c54a537d96a1d90b55805 -radedd712d56344175e1036b7b908e62054cb8c76
--- tests/submethods.test	(.../submethods.test)	(revision 2c338821c949f8eb468c54a537d96a1d90b55805)
+++ tests/submethods.test	(.../submethods.test)	(revision adedd712d56344175e1036b7b908e62054cb8c76)
@@ -913,26 +913,29 @@
 
 nx::test case ensemble-callstack-introspection {
   set ::body {
-    return [list [current nextmethod] {*}[next]]
+    return [list [current nextmethod] [current isnextcall] {*}[next]]
   }
   
   nx::Class create A {
     set ::handle [:method "i s" args $::body]
+    :create a
   }
   
   nx::Class create B  -superclasses A {
     :public method "i s" args $::body
     :create b
   }
   
-  ? {b eval { :i s }} {{::nsf::classes::A::i s} {}}
+  ? {b eval { :i s }} {{::nsf::classes::A::i s} 0 {} 1}
   ? {::nsf::cmd::info args [lindex [b eval { :i s }] 0]} "args"
   ? {::nsf::cmd::info definitionhandle [lindex [b eval { :i s }] 0]} $::handle
   ? {::nsf::cmd::info body [lindex [b eval { :i s }] 0]} $::body
-  ? {b i s} {{::nsf::classes::A::i s} {}};
+  ? {b i s} {{::nsf::classes::A::i s} 0 {} 1};
   ? {::nsf::cmd::info args [lindex [b i s] 0]} "args"
   ? {::nsf::cmd::info definitionhandle [lindex [b i s] 0]} $::handle
   ? {::nsf::cmd::info body [lindex [b i s] 0]} $::body
+  ? {a eval { :i s }} {{} 0}
+  ? {a i s} {{} 0}
   
   unset -nocomplain ::handle
   unset -nocomplain ::body