Index: library/serialize/serializer.tcl =================================================================== diff -u -re3a84e351aaf79c02a63cc0741dde7b9bd550849 -r65f8883a4596ea98365b7de1652700e3ac7394cc --- library/serialize/serializer.tcl (.../serializer.tcl) (revision e3a84e351aaf79c02a63cc0741dde7b9bd550849) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision 65f8883a4596ea98365b7de1652700e3ac7394cc) @@ -180,7 +180,7 @@ # we export the object tree. set oo $o while {1} { - if {[::nsf::existsvar [::nsf::current class] exportObjects($o)]} { + if {[::nsf::var::exists [::nsf::current class] exportObjects($o)]} { return 1 } # we do this for object trees without object-less namespaces @@ -585,7 +585,7 @@ if {[$o eval [list ::array exists :$v]]} { lappend setcmd [list array set :$v [$o eval [list array get :$v]]] } else { - lappend setcmd [list set :$v [::nsf::setvar $o $v]] + lappend setcmd [list set :$v [::nsf::var::set $o $v]] } } }