Index: library/serialize/serializer.tcl
===================================================================
diff -u -re415f4153e7750b77616795150822b91db1ba9d4 -r0fbefbd8effdd2cca8f5ea34ff35aebfe536ff07
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision e415f4153e7750b77616795150822b91db1ba9d4)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 0fbefbd8effdd2cca8f5ea34ff35aebfe536ff07)
@@ -706,10 +706,14 @@
 	# object serialization is fully handled by the serializer
 	return "# [$o {*}$modifier info method definition $m]"
       }
-      set def [$o {*}$modifier info method definition $m]
-      set handle [$o {*}$modifier info method handle $m]
-      set returns [::nsf::methodproperty $o $handle returns]
-      if {$returns ne ""} {append def \n [list ::nsf::methodproperty $o $handle returns $returns]}
+      if {[$o {*}$modifier info method type $m] eq "setter"} {
+	set def ""
+      } else {
+	set def [$o {*}$modifier info method definition $m]
+	set handle [$o {*}$modifier info method handle $m]
+	set returns [::nsf::methodproperty $o $handle returns]
+	if {$returns ne ""} {append def \n [list ::nsf::methodproperty $o $handle returns $returns]}
+      }
       return $def
     }