Index: openacs-4/packages/cms/www/modules/items/revision-upload.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/revision-upload.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/cms/www/modules/items/revision-upload.tcl	26 May 2001 19:45:03 -0000	1.4
+++ openacs-4/packages/cms/www/modules/items/revision-upload.tcl	8 Jun 2001 01:44:53 -0000	1.5
@@ -77,7 +77,7 @@
 
 if { [form is_request upload] } { 
  
-  query revision_id onevalue "select acs_object_id_seq.nextval from dual"
+  template::query get_revision_id revision_id onevalue "select acs_object_id_seq.nextval from dual"
   element set_properties upload revision_id -value $revision_id
 }