Index: library/nx/nx.tcl =================================================================== diff -u -r033c63d771af5253b0e94c2a9c1c6a94df40242e -r304c346008d3c471fa9350eb0b18813eec2a4be6 --- library/nx/nx.tcl (.../nx.tcl) (revision 033c63d771af5253b0e94c2a9c1c6a94df40242e) +++ library/nx/nx.tcl (.../nx.tcl) (revision 304c346008d3c471fa9350eb0b18813eec2a4be6) @@ -1175,7 +1175,7 @@ if {![::nsf::objectproperty $object object]} { $withclass create $object } - eval ::nsf::next -childof $object $args + ::nsf::next -childof $object {*}$args } } } @@ -1297,11 +1297,12 @@ } :copyNSVarsAndCmds $origin $dest foreach i [::nsf::cmd::ObjectInfo::forward $origin] { - eval [concat ::nsf::forward $dest -per-object $i [::nsf::cmd::ObjectInfo::forward $origin -definition $i]] + ::nsf::forward $dest -per-object $i {*}[::nsf::cmd::ObjectInfo::forward $origin -definition $i] + } if {[::nsf::objectproperty $origin class]} { foreach i [::nsf::cmd::ClassInfo::forward $origin] { - eval [concat ::nsf::forward $dest $i [::nsf::cmd::ClassInfo::forward $origin -definition $i]] + ::nsf::forward $dest $i {*}[::nsf::cmd::ClassInfo::forward $origin -definition $i] } } set traces [list] @@ -1386,13 +1387,11 @@ interp alias {} ::nx::self {} ::nsf::current object } - - ####################################################################### # define, what should be exported namespace eval ::nx { - # export the contents for all xotcl versions + # export the main commands of ::nx namespace export Object Class next self current # TODO should not be necessary in the future