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.52 -r1.53
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	18 Oct 2010 10:23:53 -0000	1.52
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	6 Jan 2011 18:03:00 -0000	1.53
@@ -32,7 +32,7 @@
   # XOTcl 1.5 or newer supports slots. Here we have to 
   # emulate slots up to a certain point
   namespace eval ::xo {
-    Class create ::xo::Attribute \
+    ::xotcl::MetaSlot create ::xo::Attribute \
       -parameter {
         {name "[namespace tail [::xotcl::self]]"}
         {domain "[lindex [regexp -inline {^(.*)::slot::[^:]+$} [::xotcl::self]] 1]"}
@@ -52,7 +52,7 @@
 } else {
   namespace eval ::xo {
     # create xo::Attribute as a subclass of the slot ::xotcl::Attribute
-    Class create ::xo::Attribute \
+    ::xotcl::MetaSlot create ::xo::Attribute \
         -superclass ::xotcl::Attribute \
         -parameter {
           spec