Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v diff -u -N -r1.78.2.1 -r1.78.2.2 --- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 18 Aug 2015 12:46:18 -0000 1.78.2.1 +++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl 17 Oct 2015 18:32:05 -0000 1.78.2.2 @@ -22,8 +22,6 @@ ::xotcl::Object instproc destroy_on_cleanup ::xotcl::Object instproc set_instance_vars_defaults ::xotcl::Class instproc extend_slot - ::xotcl::nonposArgs proc integer - ::xotcl::nonposArgs proc optional } if {$::xotcl::version < 1.5} { @@ -57,6 +55,12 @@ validator } } + + ::Serializer exportMethods { + ::xotcl::nonposArgs proc integer + ::xotcl::nonposArgs proc optional + } + } else { namespace eval ::xo { # create xo::Attribute as a subclass of the slot ::xotcl::Attribute @@ -103,7 +107,6 @@ ::Serializer exportMethods { ::nx::Object method serialize - ::nx::Object method show-object ::nx::Object method set_instance_vars_defaults ::nx::Object method destroy_on_cleanup ::nx::Object method qn