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.89 -r1.90
--- openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	1 Jun 2010 13:23:49 -0000	1.89
+++ openacs-4/packages/xotcl-core/tcl/05-db-procs.tcl	6 Nov 2010 09:03:38 -0000	1.90
@@ -923,6 +923,7 @@
     switch -glob -- $name {
       ::xo::db::Object   {return acs_object}
       ::xo::db::CrItem   {return content_revision}
+      ::xo::db::image    {return image}
       ::xo::db::CrFolder {return content_folder}
       ::xo::db::*        {return [string range $name 10 end]}
       default            {return $name}
Index: openacs-4/packages/xotcl-core/tcl/cr-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/cr-procs.tcl,v
diff -u -N -r1.41 -r1.42
--- openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	8 Jul 2010 12:05:12 -0000	1.41
+++ openacs-4/packages/xotcl-core/tcl/cr-procs.tcl	6 Nov 2010 09:03:38 -0000	1.42
@@ -1209,6 +1209,15 @@
     return $allowed
   }
 
+  ::xo::db::CrClass create ::xo::db::image -superclass ::xo::db::CrItem \
+      -pretty_name "Image" \
+      -table_name "images" -id_column "image_id" \
+      -object_type image \
+      -slots {
+	::xo::db::CrAttribute create width  -datatype integer
+	::xo::db::CrAttribute create height -datatype integer
+      }
+
   #
   # CrFolder
   #