Index: library/lib/nx-traits.tcl =================================================================== diff -u -rd31c271afb2488abafa0642b07538a3e62106130 -rc4997e0189bb712287aa53d12bb3e332acfb781d --- library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision d31c271afb2488abafa0642b07538a3e62106130) +++ library/lib/nx-traits.tcl (.../nx-traits.tcl) (revision c4997e0189bb712287aa53d12bb3e332acfb781d) @@ -71,7 +71,7 @@ if {[info exists map($m)]} {set newName $map($m)} else {set newName $m} # do not add entries with $newName empty if {$newName eq ""} continue - set traitMethodHandle [$traitName info method origin $m] + set traitMethodHandle [$traitName info method definitionhandle $m] if {${per-object}} { $obj ::nsf::classes::nx::Object::alias $newName $traitMethodHandle } else {