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.17 -r1.18
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	8 Jun 2007 17:32:24 -0000	1.17
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	22 Jun 2007 13:26:45 -0000	1.18
@@ -27,6 +27,39 @@
     my requireNamespace
     namespace eval [self] $cmds
   }
+  namespace eval ::xo {
+    Class create ::xo::Attribute \
+      -parameter {
+        {name "[namespace tail [::xotcl::self]]"}
+        {domain "[lindex [regexp -inline {^(.*)::slot::[^:]+$} [::xotcl::self]] 1]"}
+        {multivalued false}
+        {required false}
+        default 
+        type
+        spec
+        pretty_name 
+        {pretty_plural ""}
+        {datatype "text"} 
+        {sqltype "text"} 
+        {min_n_values 1} 
+        {max_n_values 1}
+      }
+
+  }
+} else {
+  namespace eval ::xo {
+    Class create ::xo::Attribute \
+        -superclass ::xotcl::Attribute \
+        -parameter {
+          spec
+          pretty_name 
+          {pretty_plural ""}
+          {datatype "text"} 
+          {sqltype "text"} 
+          {min_n_values 1} 
+          {max_n_values 1}
+        }
+  }
 }
 
 ::xotcl::Object instforward db_1row -objscope