Index: openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl,v
diff -u -N -r1.31 -r1.32
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	17 May 2018 08:35:50 -0000	1.31
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	15 Jun 2018 08:30:12 -0000	1.32
@@ -131,10 +131,7 @@
 	}
     }
     
-    set table_name [db_string get_table_name {
-        select table_name from acs_object_types where object_type = :content_type
-    }]
-
+    set table_name [acs_object_type::get_table_name -object_type $content_type]
     set mime_type [cr_check_mime_type \
                        -filename  $title \
                        -mime_type $mime_type \