Index: tests/introspection.test
===================================================================
diff -u -r16494e7f90f6b80bea8eacb3d018f1383651904b -rb2ab5886fc3278e549bb2772dfce921fbd06a9e9
--- tests/introspection.test	(.../introspection.test)	(revision 16494e7f90f6b80bea8eacb3d018f1383651904b)
+++ tests/introspection.test	(.../introspection.test)	(revision b2ab5886fc3278e549bb2772dfce921fbd06a9e9)
@@ -46,4 +46,24 @@
   C mixin add M
 
   ? {[C new] baz} {::C ::C}
+}
+
+#
+# [::nsf::current calledclass]
+#
+nx::Test case current-calledmethod {
+  set body {
+    return [list [current nextmethod] {*}[next]]
+  }
+  Object create o
+  set mh [o public method foo {} $body]
+  
+  ? {o foo} {{}}
+
+  Class create M 
+  set mh2 [M public method foo {} $body]
+  M filter add foo
+  o mixin M
+
+  ? {o foo} [list $mh2 $mh {}]
 }
\ No newline at end of file