Index: tests/serialize.test
===================================================================
diff -u -rb531a50ecc43d0c13e2432b099a436c3260c7a49 -r31404a50d429bd67e904a70797c4f67674fab09f
--- tests/serialize.test	(.../serialize.test)	(revision b531a50ecc43d0c13e2432b099a436c3260c7a49)
+++ tests/serialize.test	(.../serialize.test)	(revision 31404a50d429bd67e904a70797c4f67674fab09f)
@@ -76,8 +76,9 @@
   set c1(One) [list [::Serializer deepSerialize -ignoreVarsRE "a" c1] "b"]
   set c1(One2) [list [::Serializer deepSerialize -ignoreVarsRE {::a$} c1] "b"]
   set c1(IgnoreAll) [list [::Serializer deepSerialize -ignoreVarsRE "." c1] ""]
+  set names {}; foreach s [C info slots] {lappend names [$s name]}
   set c1(None2) [list [::Serializer deepSerialize -ignoreVarsRE \
-			   [join [C info slot names] |] c1] ""]
+			   [join $names |] c1] ""]
   
   c1 destroy
 
@@ -96,8 +97,9 @@
   set C(One) [list [::Serializer deepSerialize -ignoreVarsRE "x" C] "y"]
   set C(One2) [list [::Serializer deepSerialize -ignoreVarsRE {::x$} C] "y"]
   set C(IgnoreAll) [list [::Serializer deepSerialize -ignoreVarsRE "." C] ""]
+  set names {}; foreach s [C info object slots] {lappend names [$s name]}
   set C(None2) [list [::Serializer deepSerialize \
-			  -ignoreVarsRE [join [C info object slot names] |] C] ""]
+			  -ignoreVarsRE [join $names |] C] ""]
   
   C destroy