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 -r1.51 -r1.52
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	29 Sep 2010 11:34:41 -0000	1.51
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Oct 2010 10:23:53 -0000	1.52
@@ -77,7 +77,7 @@
     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 alias set -frame object ::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}