Index: tests/submethods.test
===================================================================
diff -u -rc1b0280fcc98b5ac8c94b36e274e1ae0906364d5 -rcd33e8cefca1d52063ebcb6689e46527bb94e33d
--- tests/submethods.test	(.../submethods.test)	(revision c1b0280fcc98b5ac8c94b36e274e1ae0906364d5)
+++ tests/submethods.test	(.../submethods.test)	(revision cd33e8cefca1d52063ebcb6689e46527bb94e33d)
@@ -189,14 +189,14 @@
       return something
     }
     :public method "info has something path" {} {
-      return [concat [::nsf::current methodpath] [::nsf::current method]]
+      return [::nsf::current methodpath]
     }
     :public method "info has something better" {} {
       nx::next
       return better
     }
     :public method foo {} {
-      return [concat [::nsf::current methodpath] [::nsf::current method]]
+      return [::nsf::current methodpath]
     }
   }
   nx::Object mixin add M
@@ -412,7 +412,7 @@
   #
 
   o eval {
-    :public object method faz {} {return [concat [current methodpath] [current method]]}
+    :public object method faz {} {return [current methodpath]}
     ? [list set _ [:faz]] "faz"
   }
 
@@ -421,7 +421,7 @@
   #
 
   o eval {
-    set body {? [list set _ [:bar]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    set body {? [list set _ [:bar]] [current class]-[current]-[current methodpath]}
     :public object method "FOO foo" {} $body
     :public object method "BAR BUU boo" {} $body
     :public object method baz {} $body
@@ -434,7 +434,7 @@
     :baz
 
     :object method "a b" {} $calleeBody
-    set body {? [list set _ [:a b]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    set body {? [list set _ [:a b]] [current class]-[current]-[current methodpath]}
     :public object method "FOO foo" {} $body
     :public object method "BAR BUU boo" {} $body
     :public object method baz {} $body
@@ -445,7 +445,7 @@
 
     # TODO: :method "a b c" {} $calleeBody; FAILS -> "can't append to scripted"
     :object method "x y z" {} $calleeBody;
-    set body {? [list set _ [:x y z]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    set body {? [list set _ [:x y z]] [current class]-[current]-[current methodpath]}
     :public object method "FOO foo" {} $body
     :public object method "BAR BUU boo" {} $body
     :public object method baz {} $body
@@ -461,7 +461,7 @@
   #
 
   C eval {
-    set body {? [list set _ [:bar]] [current class]-[current]-[concat [current methodpath] [current method]]}
+    set body {? [list set _ [:bar]] [current class]-[current]-[current methodpath]}
     :public method "FOO foo" {} $body
     :public method "BAR BUU boo" {} $body
     :public method baz {} $body
@@ -495,7 +495,7 @@
   Class create Z {
     :object property -accessor public msg
     :method intercept args {
-      [current class] eval [list set :msg [list [current methodpath] \
+      [current class] eval [list set :msg [list [lrange [current methodpath] 1 end-1] \
 					       [current calledmethod] \
 					       [current calledclass] \
 					       [current nextmethod]]]