Index: generic/predefined.h =================================================================== diff -u -r8c7cda91db207490f2d401595cec6cf784460bb6 -re756bf87414d3f6376327b3a126e5e8ae619302d --- generic/predefined.h (.../predefined.h) (revision 8c7cda91db207490f2d401595cec6cf784460bb6) +++ generic/predefined.h (.../predefined.h) (revision e756bf87414d3f6376327b3a126e5e8ae619302d) @@ -21,8 +21,11 @@ "set rel \"object-mixin\"\n" "set args [lrange $args 1 end]} else {\n" "set rel \"class-mixin\"}\n" +"puts stderr LL=[llength $args]-$args\n" +"if {[lindex $args 0] ne \"\"} {\n" "set oldSetting [::nsf::relation $object $rel]\n" -"uplevel [list ::nsf::relation $object $rel [linsert $oldSetting end $args]]}\n" +"uplevel [list ::nsf::relation $object $rel [linsert $oldSetting 0 $args]]} else {\n" +"uplevel [list ::nsf::relation $object $rel \"\"]}}\n" "::nsf::provide_method autoname {::nsf::alias autoname ::nsf::methods::object::autoname}\n" "::nsf::provide_method exists {::nsf::alias exists ::nsf::methods::object::exists}\n" "proc ::nsf::exithandler {args} {\n"