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 -r1.4.2.10 -r1.4.2.11
--- openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	28 Feb 2005 09:22:42 -0000	1.4.2.10
+++ openacs-4/packages/acs-content-repository/tcl/content-revision-procs.tcl	15 Apr 2005 17:00:42 -0000	1.4.2.11
@@ -116,7 +116,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 table_name "${table_name}i"
 
     set query_text "insert into ${table_name}