Index: library/serialize/serializer.tcl =================================================================== diff -u -rbc264a2e24d7693798442800b62829f8b73cfb86 -r92e6424562685bcc3665bf23dfcdc3ee489c25ef --- library/serialize/serializer.tcl (.../serializer.tcl) (revision bc264a2e24d7693798442800b62829f8b73cfb86) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision 92e6424562685bcc3665bf23dfcdc3ee489c25ef) @@ -368,7 +368,7 @@ if {[info exists ignore]} {$s ignore $ignore} set r [subst { - set ::xotcl::__filterstate \[::nsf::configure filter off\] + set ::nsf::__filterstate \[::nsf::configure filter off\] #::nx::Slot mixin add ::nx::Slot::Nocheck ::nsf::configure softrecreate [::nsf::configure softrecreate] ::nsf::exithandler set [list [::nsf::exithandler get]] @@ -395,10 +395,11 @@ append r { #::nx::Slot mixin delete ::nx::Slot::Nocheck - ::nsf::configure filter $::xotcl::__filterstate - unset ::xotcl::__filterstate + ::nsf::configure filter $::nsf::__filterstate + unset ::nsf::__filterstate } ::nsf::configure filter $filterstate + return $r } @@ -458,6 +459,8 @@ [:frameWorkCmd ::nsf::assertion $o object-invar] \ [:frameWorkCmd ::nsf::assertion $o class-invar] } + puts stderr "*** array unset [nsf::current object] alias_dependency // size [array size :alias_dependency]" + array unset :alias_dependency return $cmd } @@ -778,7 +781,6 @@ #array set :ignorePattern [list "::xotcl::*" 1] array set :ignorePattern [list "::nsf::*" 1 "::nx::*" 1 "::xotcl::*" 1] - :public method serialize-all-start {s} { set intro "package require XOTcl 2.0" if {[info command ::Object] ne "" && [namespace origin ::Object] eq "::xotcl::Object"} {