Index: openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl,v
diff -u -r1.21.2.2 -r1.21.2.3
--- openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	4 Jul 2005 13:15:49 -0000	1.21.2.2
+++ openacs-4/packages/acs-content-repository/tcl/revision-procs.tcl	6 Jul 2005 01:28:07 -0000	1.21.2.3
@@ -193,6 +193,14 @@
     # use content_type of existing item 
     if $old_item_p {
 	set content_type [db_string get_content_type ""]
+    } else {
+        # all we really need to know is if the mime type is mapped to image, we
+        # actually use the passed in image_type or other_type to create the object
+        if {[db_string image_type_p "" -default 0]} {
+            set content_type image
+        } else {
+            set content_type content_revision
+        }
     }
     set revision_id [db_nextval acs_object_id_seq]