Index: tests/info-method.tcl
===================================================================
diff -u -r451c0d385a7b952b55d12fd02895dfc5ba342293 -r1a67ad0bf0b5c2092e1558d13659bad489f5bb75
--- tests/info-method.tcl	(.../info-method.tcl)	(revision 451c0d385a7b952b55d12fd02895dfc5ba342293)
+++ tests/info-method.tcl	(.../info-method.tcl)	(revision 1a67ad0bf0b5c2092e1558d13659bad489f5bb75)
@@ -69,6 +69,19 @@
   ? {lsort [c1 info callable methods -application]} "a addOne foo m m-with-assertions s"
 }
 
+Test case subobj {
+  ::nx::Object create o {
+    ::nx::Object create [::nx::self]::sub {
+      :method foo {} {;}
+    }
+    :alias subal ::o::sub
+  }
+  ? {o info methods} "sub subal"
+  ? {o info method type sub} "object"
+  ? {o info method definition sub} "::nx::Object create ::o::sub"
+  ? {o info method type subal} "alias"
+}
+
 Test case callable {
     # define the same method for Object and Class
     ::nx::Object method bar {} {return Object.bar}