Index: library/nx/nx.tcl =================================================================== diff -u -r96716c484bb18d390fef1eecdca764b56121dc4d -rfc4e3f5f6a94ef7324baffab90d58cd7eb513907 --- library/nx/nx.tcl (.../nx.tcl) (revision 96716c484bb18d390fef1eecdca764b56121dc4d) +++ library/nx/nx.tcl (.../nx.tcl) (revision fc4e3f5f6a94ef7324baffab90d58cd7eb513907) @@ -6,8 +6,9 @@ # By setting the variable bootstrap, we can check later, whether we # are in bootstrapping mode # - set bootstrap 1 + set ::nsf::bootstrap ::nx + puts stderr ====[::nsf::configure objectsystem] # # First create the ::nx object system. # @@ -503,6 +504,8 @@ foreach m [::nsf::dispatch ::nx::Object::slot::__info ::nsf::methods::object::info::methods] { if {[::nsf::dispatch ::nx::Object::slot::__info ::nsf::methods::object::info::method type $m] eq "object"} continue set definition [::nsf::dispatch ::nx::Object::slot::__info ::nsf::methods::object::info::method definition $m] + # The following line is just for the redefinition case, after a "package forget" + if {[lindex $definition 2] eq "method"} continue ::nx::Class::slot::__info {*}[lrange $definition 1 end] unset definition } @@ -1561,7 +1564,7 @@ set ::nx::confdir ~/.nx set ::nx::logdir $::nx::confdir/log - unset bootstrap + unset ::nsf::bootstrap } if {[::nsf::configure debug] > 1} { foreach ns {::nsf ::nx} {