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.52 -r1.53
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Dec 2007 17:38:38 -0000	1.52
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	10 Jan 2008 12:16:17 -0000	1.53
@@ -867,12 +867,16 @@
   ::xo::db::Class proc class_to_object_type {name} {
     if {[my isclass $name]} {
       if {[$name exists object_type]} {
+        # The specified class has an object_type defined; return it
 	return [$name object_type]
       }
       if {![$name istype ::xo::db::Object]} {
+        # The specified class is not subclass of ::xo::db::Object.
+        # return acs_object in your desparation.
 	return acs_object
       }
     }
+    # Standard mapping rules
     switch -glob -- $name {
       ::xo::db::Object {return acs_object}
       ::xo::db::CrItem {return content_revision}