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.50 -r1.51
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	28 Sep 2010 13:25:10 -0000	1.50
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Sep 2010 11:34:41 -0000	1.51
@@ -70,13 +70,14 @@
 if {[info command ::nx::Object] ne ""} {
   ns_log notice "Defining minimal XOTcl 1 compatibility"
   ::nsf::alias ::xo::Attribute instvar ::nsf::methods::object::instvar
-  ::nsf::alias ::xo::Attribute set -objscope ::set
+
   # the following line would cause a dependency of an nx object to xotcl (serializer)
   #::nsf::alias ::nx::Slot istype ::nsf::classes::xotcl::Object::istype
   ::nx::Slot public method istype {class}  {
     return [expr {[::nsf::is class $class] && 
 		  [::nsf::dispatch [self] ::nsf::methods::object::info::hastype $class]}]
   }
+  ::nx::Slot public alias -objscope set ::set
   ::nx::Slot public method exists {var}   {::nsf::existsvar [self] $var}
   ::nx::Object public method serialize {} {::Serializer deepSerialize [self]}
   ::nx::Object method set_instance_vars_defaults {} {:configure}
@@ -88,6 +89,7 @@
     ::nx::Object method set_instance_vars_defaults
     ::nx::Slot method istype
     ::nx::Slot method exists
+    ::nx::Slot method set
   }
 
 } else {