Index: TODO
===================================================================
diff -u -r46c536260f793729feb23fff02cc15e3867ae0ee -r07bc50445a6b058e05eb942e793d99126afbedd1
--- TODO	(.../TODO)	(revision 46c536260f793729feb23fff02cc15e3867ae0ee)
+++ TODO	(.../TODO)	(revision 07bc50445a6b058e05eb942e793d99126afbedd1)
@@ -3094,6 +3094,22 @@
 
  - Should we leave "variable" and "attribute" as it is, or
    switch the names to something better? Some options:
+
+ - [obj/cls info method handle "FOO foo"] does neither return a proper
+   submethod handle nor any valid handle ... needs a fix.
+
+ - NsfObjWrongArgs() & friends is not aware of submethods. Error
+   messages print with the leaf method names only, e.g.: "anObj method
+   ..." instead of " anObj info method ..." etc.
+
+ - The following leads to a crash in the ExitHandler:
+       Object create o {exit -1} 
+
+ - variable and incremental, test for user-defined types
+ - should we change interface for default value in attribute? 
+   probably not, same interface is used in methodparameters as well
+ - Should we leave "variable" and "attribute" as it ist?
+   options:
      (a) leave it as it is
      (b) use "property" instead of "attribute"
          ("a property is a variable with accessors"),
@@ -3111,7 +3127,6 @@
 #::nsf::var::set ?-array? object varName ?value?
 #::nsf::var::unset ?-array? object varName 
 
-
 - Revise callstack introspection/intercession, i.e., [current
   activelevel] vs. [current callinglevel] vs. uplevel()/upvar():
   
Index: tests/submethods.test
===================================================================
diff -u -rf3127511bec503add89e7a691f33213b1999274d -r07bc50445a6b058e05eb942e793d99126afbedd1
--- tests/submethods.test	(.../submethods.test)	(revision f3127511bec503add89e7a691f33213b1999274d)
+++ tests/submethods.test	(.../submethods.test)	(revision 07bc50445a6b058e05eb942e793d99126afbedd1)
@@ -338,7 +338,7 @@
   ? {obj foo} ::nx::Object
 }
 
-nx::Test case submethods-as-filters {
+nx::Test case submethods-and-filters {
   #
   # submethods as filters?
   #
@@ -398,14 +398,39 @@
     :public method "BAR BUU boo" {} $body
     :public method baz {} $body
 
-    :method bar {} {
-      return "[current callingclass]-[current callingobject]-[current callingmethod]"
-    }
+    set calleeBody {return "[current callingclass]-[current callingobject]-[current callingmethod]"}
+    :method bar {} $calleeBody
 
     :FOO foo
     :BAR BUU boo
     :baz
+
+    :method "a b" {} $calleeBody
+    set body {? [list set _ [:a b]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    :public method "FOO foo" {} $body
+    :public method "BAR BUU boo" {} $body
+    :public method baz {} $body
+
+    :FOO foo
+    :BAR BUU boo
+    :baz
+
+    # TODO: :method "a b c" {} $calleeBody; FAILS -> "can't append to scripted"
+    :method "x y z" {} $calleeBody;
+    set body {? [list set _ [:x y z]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    :public method "FOO foo" {} $body
+    :public method "BAR BUU boo" {} $body
+    :public method baz {} $body
+
+    :FOO foo
+    :BAR BUU boo
+    :baz
   }
+  
+  #
+  # Make sure that [current callingclass] works for submethods, as
+  # expected
+  #
 
   C eval {
     set body {? [list set _ [:bar]] [current class]-[current]-[concat [current methodpath] [current method]]}
@@ -425,9 +450,50 @@
 
   #
   # [current calledmethod]
+  # [current calledclass]
   #
+  # Note: In my reading, [current calledmethod] cannot be made aware
+  # of the methodpath of a submethod call being intercepted. This is
+  # due to the callstack structure at the time of executing the filter
+  # stack which is entirely agnostic of the submethod dispatch (this
+  # dispatch has not occurred yet). For the same reason, we cannot
+  # record the method path in the filter stack structure.
+  #
+  # From the filter method's perspective, the submethod selectors
+  # ("foo" and "BUU boo" below) are simply arguments provided to the
+  # top-level method. They can only be processed as part of the
+  # filter-local argv.
+
+  Class create Z {
+    :class attribute msg
+    :method intercept args {
+      [current class] eval [list set :msg [list [current methodpath] \
+					       [current calledmethod] \
+					       [current calledclass] \
+					       [current next]]]
+      next
+    }
+    
+  }
   
+  set c [Z new]
+
+  Z filter intercept
+
+  foreach selector [list "FOO foo" "BAR BUU boo" "baz"] {
+    Z public method $selector {} {;}
+    set root [lindex $selector 0]
+    set mh [Z info method handle $root]
+    $c {*}$selector
+    ? [list set _ [join [Z msg] -]] -$root-::Z-$mh
+  }
+
+  Z filter {}  
+
 }
 
 
 
+
+
+