Index: tests/alias.test
===================================================================
diff -u -r918dad9936cd257821e13fa823ff94e89c3c9ea5 -r52af84c2682d91994f00f6f1cfdf7e9f5fda0a62
--- tests/alias.test	(.../alias.test)	(revision 918dad9936cd257821e13fa823ff94e89c3c9ea5)
+++ tests/alias.test	(.../alias.test)	(revision 52af84c2682d91994f00f6f1cfdf7e9f5fda0a62)
@@ -341,22 +341,29 @@
 nx::Object create o
 nx::Class create C
 
-o public object method bar args {;}
+? {o public object method bar args {;}} ::o::bar
+? {o info object methods bar} bar
+? {info commands ::o::bar} ::bar "a command ::o::bar exists, but WHY THIS"
 
 ? {info vars ::nsf::alias} ::nsf::alias
 ? {array exists ::nsf::alias} 1 
 
 proc ::foo args {;}
-::nsf::method::alias ::o FOO ::foo
-::nsf::method::alias ::C FOO ::foo
+? {::nsf::method::alias ::o FOO ::foo} ::o::FOO
+? {::nsf::method::alias ::C FOO ::foo} ::nsf::classes::C::FOO
+
+? {info commands ::o::FOO} ::o::FOO
+? {info commands ::nsf::classes::C::FOO} ::nsf::classes::C::FOO
+
+
 ? {info exists ::nsf::alias(::o,FOO,1)} 1
 ? {info exists ::nsf::alias(::C,FOO,0)} 1
 ? {array get ::nsf::alias ::o,FOO,1} "::o,FOO,1 ::foo"
 ? {array get ::nsf::alias ::C,FOO,0} "::C,FOO,0 ::foo"
 ? {o info object method definition FOO} "::o public object alias FOO ::foo"
 ? {C info method definition FOO} "::C public alias FOO ::foo"
 
-::nsf::method::alias o FOO ::o::bar
+? {::nsf::method::alias o FOO ::o::bar} ::o::FOO "redefine alias ::o::FOO"
 ? {info exists ::nsf::alias(::o,FOO,1)} 1
 ? {array get ::nsf::alias ::o,FOO,1} "::o,FOO,1 ::o::bar"
 ? {o info object method definition FOO} "::o public object alias FOO ::o::bar"
@@ -373,29 +380,39 @@
 ? {array get ::nsf::alias ::C,FOO,0} ""
 ? {C info method definition FOO} ""
 
-::nsf::method::alias ::o BAR ::foo
-::nsf::method::alias ::C BAR ::foo  
+? {info commands ::foo}                ::foo     "the target command ::foo exists"
+? {::nsf::method::alias ::o BAR ::foo} ::o::BAR
+? {::nsf::method::alias ::C BAR ::foo} ::nsf::classes::C::BAR
 
 # AliasDelete in AddObjectMethod
-? {info exists ::nsf::alias(::o,BAR,1)} 1 "delete alias via redefinition of a method"
-::o public object method BAR {} {;}
-? {info exists ::nsf::alias(::o,BAR,1)} 0
+? {info exists ::nsf::alias(::o,BAR,1)} 1 "delete alias via redefinition of an object method (alias exists still)"
+? {info commands ::o::BAR} ::o::BAR
+? {info commands ::BAR} ""
+? {::o public object method BAR {} {;}} ::o::BAR
+? {o info object methods BAR} BAR
+? {info commands ::o::BAR} ::BAR          "a command ::o::BAR exists, but WHY THIS?"
+? {info commands ::BAR} ""
+? {info exists ::nsf::alias(::o,BAR,1)} 0 "::o::BAR is not an alias"
 
 # AliasDelete in AddInstanceMethod
-? {info exists ::nsf::alias(::C,BAR,0)} 1
+? {info exists ::nsf::alias(::C,BAR,0)} 1 "delete alias via redefinition of a an instance method"
 ::C public method BAR {} {;}
 ? {info exists ::nsf::alias(::C,BAR,0)} 0
+? {info commands ::o::BAR} ::BAR "a command ::o::BAR does not exist, but WHY THIS?"
 
 # AliasDelete in aliasCmdDeleteProc
 ::nsf::method::alias o FOO ::foo
-? {info exists ::nsf::alias(::o,FOO,1)} 1
+? {info exists ::nsf::alias(::o,FOO,1)} 1 "delete alias via deleting the aliased proc via Tcl"
 rename ::foo ""
 #WITH_IMPORT_REFS
 #? {info exists ::nsf::alias(::o,FOO,1)} 0
 ? {info exists ::nsf::alias(::o,FOO,1)} 1
 
-::nsf::method::alias o FOO ::o::bar
-::nsf::method::alias o BAR ::o::FOO
+? {info commands ::o::bar} ::bar                 "::o::bar does not exist, but WHY THIS?"
+? {info commands ::o::FOO} ::o::FOO              "a command ::o::FOO' exists"
+? {info commands ::o::BAR} ::BAR                 "a command ::o::BAR does not exist, but WHY THIS?"
+? {::nsf::method::alias o FOO ::o::bar} ::o::FOO "redefine an object alias based on existing (?) ::o::bar"
+? {::nsf::method::alias o BAR ::o::FOO} ::o::BAR "define an object alias based on alias based on existing (?) ::o::bar"
 ? {info exists ::nsf::alias(::o,FOO,1)} 1
 ? {info exists ::nsf::alias(::o,BAR,1)} 1
 o public object method bar {} {}