Index: library/serialize/serializer.tcl
===================================================================
diff -u -r595e6a24a220e5cb64842473ee5605ed5e537ff4 -rf9dcf9b0efaa245cf8839e9de9e1e5c5f0d3d018
--- library/serialize/serializer.tcl	(.../serializer.tcl)	(revision 595e6a24a220e5cb64842473ee5605ed5e537ff4)
+++ library/serialize/serializer.tcl	(.../serializer.tcl)	(revision f9dcf9b0efaa245cf8839e9de9e1e5c5f0d3d018)
@@ -144,7 +144,7 @@
   Class create Serializer {
     :property ignoreVarsRE
 
-    :method ignore args {
+    :public method ignore args {
       # Ignore the objects passed via args.
       # :skip is used for filtering only in the topological sort.
       foreach element $args { 
@@ -770,7 +770,8 @@
       set objectName [::nsf::directdispatch $o -frame method ::nsf::current object]
       set isSlotContainer [::nx::isSlotContainer $objectName]
       if {$isSlotContainer} {
-	append cmd [list ::nx::slotObj [$o ::nsf::methods::object::info::parent]]\n
+	append cmd [list ::nx::slotObj -container [namespace tail $objectName] \
+			[$o ::nsf::methods::object::info::parent]]\n
       } else {
 	append cmd [list [$o info class] create $objectName -noinit]\n
 	foreach i [lsort [$o ::nsf::methods::object::info::methods -callprotection all -path]] {