Index: library/xotcl/tests/slottest.xotcl
===================================================================
diff -u -rdadf28efd0707ae40076f49837e6b45ad5b2a989 -r353fdf460e5124d48f9ebe0f37e23abe51494b38
--- library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision dadf28efd0707ae40076f49837e6b45ad5b2a989)
+++ library/xotcl/tests/slottest.xotcl	(.../slottest.xotcl)	(revision 353fdf460e5124d48f9ebe0f37e23abe51494b38)
@@ -710,6 +710,27 @@
   ? {::nsf::method::property o obar debug} 1
 }
 
+nx::test case nx-retuns+serialize {
+
+  ::xotcl::Class create Context
+  ? {Context instproc default_form_loader {arg} -returns integer {
+    return $arg
+  }} "::nsf::classes::Context::default_form_loader"
+
+  Context create c
+  ? {c default_form_loader 0} 0
+  ? {c default_form_loader ""} {expected integer but got "" as return value}
+  
+  set ::string [Context serialize]
+  c destroy
+  Context destroy
+
+  ? {eval $::string} "::nsf::classes::Context::default_form_loader"
+  Context create c
+  ? {c default_form_loader 0} 0
+  ? {c default_form_loader ""} {expected integer but got "" as return value}
+}
+
 #
 # Local variables:
 #    mode: tcl