Index: openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl,v
diff -u -r1.54 -r1.55
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	23 Jan 2008 13:09:34 -0000	1.54
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	11 Feb 2008 02:20:08 -0000	1.55
@@ -1553,9 +1553,8 @@
       append column_spec " REFERENCES $references" 
     } elseif {$id_column} {
       set sc [[my domain] info superclass]
-      if {![$sc istype ::xo::db::Object]} {set sc ::xo::db::Object}
-      #todo: 2x set not necessary (critem) 
-      append column_spec " REFERENCES [$sc set table_name]([$sc set id_column])\
+      if {![$sc istype ::xo::db::Class]} {set sc ::xo::db::Object}
+      append column_spec " REFERENCES [$sc table_name]([$sc id_column])\
 		ON DELETE CASCADE"
     }
     #