Index: library/serialize/serializer.tcl
===================================================================
diff -u -r3cbf24ff95e38976cdc905ec0e8014d9d754ad6f -r229c28e147436c1585ba9a5911cc48059ef1ed81
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 3cbf24ff95e38976cdc905ec0e8014d9d754ad6f)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 229c28e147436c1585ba9a5911cc48059ef1ed81)
@@ -608,6 +608,7 @@
       set v [$cmd $o $relation]
       if {$v eq ""} {return ""}
       if {[info exists unless] && $v eq $unless} {return ""}
+      regsub -all {::get$} $cmd ::set cmd
       return [list $cmd ${:targetName} $relation $v]\n
     }