Index: library/nx/nx.tcl
===================================================================
diff -u -r5afef6111e8c64d8035a90aa683ff077a5cf1d91 -r1a67ad0bf0b5c2092e1558d13659bad489f5bb75
--- library/nx/nx.tcl	(.../nx.tcl)	(revision 5afef6111e8c64d8035a90aa683ff077a5cf1d91)
+++ library/nx/nx.tcl	(.../nx.tcl)	(revision 1a67ad0bf0b5c2092e1558d13659bad489f5bb75)
@@ -379,8 +379,8 @@
 	    if {$definition eq ""} {error "definition must not be empty"}
 	    set object [lindex $definition end]
 	  } else {
-	    if {$type ne "alias"} {error "can't append to $type"}
-	    if {$definition ne ""} {error "unexpected definition '$definition'"}
+	    if {$type ne "object"} {error "can't append to $type"}
+	    if {[llength $definition] != 3} {error "unexpected definition '$definition'"}
 	    append object ::$w
 	  }
 	}
@@ -751,6 +751,7 @@
   # copy all methods except the subobjects to ::nx::Class::slot::__info
   #
   foreach m [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::methods] {
+    if {[::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::method type $m] eq "object"} continue
     set definition [::nx::Object::slot::__info ::nsf::cmd::ObjectInfo2::method definition $m]
     ::nx::Class::slot::__info {*}[lrange $definition 1 end]
   }