Index: library/serialize/serializer.tcl =================================================================== diff -u -r5972bd087afec6d23d1192d552a29c92e570d8a6 -rbd92cf0fcf5cb4388749a10ab542bf0199b00761 --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 5972bd087afec6d23d1192d552a29c92e570d8a6) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision bd92cf0fcf5cb4388749a10ab542bf0199b00761) @@ -674,17 +674,15 @@ # # The aliasedCmd is fully qualified and could be a method # handle or a primitive cmd. For a primitive cmd, we have no - # alias dependency. Currently we check here only, of we can - # obtain the method definition for this handle. It would be - # better to use ::nsf::method::exists when implemented. + # alias dependency. If the cmd is registed on an object, we + # report the dependency. # - set source [::nx::Object ::nsf::methods::class::info::method definition $aliasedCmd] - if {$source ne ""} { - set obj [lindex $source 0] - if {$obj eq $x} { + set regObj [::nsf::method::registered $aliasedCmd] + if {$regObj ne ""} { + if {$regObj eq $x} { :warn "Dependency for alias $alias from $x to $x not handled (no guarantee on method order)" } else { - lappend needed [lindex $source 0] + lappend needed $regObj } } }