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 -N -r1.83 -r1.84
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	27 Oct 2009 11:34:44 -0000	1.83
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	31 Oct 2009 22:00:30 -0000	1.84
@@ -418,7 +418,6 @@
   } {
     return [ns_cache eval xotcl_object_type_cache $id {
       db_1row [my qn get_class] "select object_type from acs_objects where object_id=$id"
-      db_1row [my qn get_class] "select object_type from acs_objects where object_id=$id"
       return $object_type
     }]
   }
@@ -681,7 +680,7 @@
       set function_args [my get_function_args $package_name $object_name]
       set function_args [my fix_function_args $function_args $package_name $object_name]
       set psql_args [my sql-arguments $function_args $package_name $object_name]
-      #ns_log notice "-- psql-args=$psql_args"
+      #ns_log notice "-- select ${package_name}__${object_name} ($psql_args)"
       my set sql [subst {
         select ${package_name}__${object_name}($psql_args)
       }]
@@ -930,6 +929,7 @@
     switch -glob -- $name {
       acs_object       {return ::xo::db::Object}
       content_revision {return ::xo::db::CrItem}
+      content_item     {return ::xo::db::CrItem}
       content_folder   {return ::xo::db::CrFolder}
       ::*              {return $name}
       default          {return ::xo::db::$name}