Index: openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl,v
diff -u -r1.22.2.12 -r1.22.2.13
--- openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	15 Mar 2022 12:01:53 -0000	1.22.2.12
+++ openacs-4/packages/xotcl-core/tcl/03-doc-procs.tcl	12 Apr 2022 09:36:39 -0000	1.22.2.13
@@ -11,17 +11,6 @@
   @cvs-id $Id$
 }
 
-# Per default, the content of the ::xotcl:: namespace is not serialized;
-# so we add the specified methods explizitely to the export list
-::Serializer exportMethods {
-  ::xotcl::Object instproc ad_proc
-  ::xotcl::Object instproc ad_forward
-  ::xotcl::Class  instproc ad_instproc
-  ::xotcl::Class  instproc ad_instforward
-  ::xotcl::Object instproc ad_doc
-  ::nx::Class method init
-}
-
 ::nx::Object create ::xo::api {
 
   array set :methodLabel {
@@ -596,6 +585,24 @@
   }
 }
 
+# ---------------------------------------------------------------------
+#
+# Per default, the content of the "::xotcl" and "::nx" namespace is
+# not serialized; so when extending the base classes of the object
+# system, one has to these methods explizitely to the export list for
+# the serializer.
+#
+# The following extensions of the base classes are defined here:
+# 
+::Serializer exportMethods {
+  ::nx::Class instproc init
+  ::xotcl::Object instproc ad_proc
+  ::xotcl::Object instproc ad_forward
+  ::xotcl::Class  instproc ad_instproc
+  ::xotcl::Class  instproc ad_instforward
+  ::xotcl::Object instproc ad_doc
+}
+
 ::nx::Class method init {} {
   set r [next]
   #