Index: openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl	17 Jul 2001 23:59:03 -0000	1.2
+++ openacs-4/packages/ecommerce/www/admin/cat/category-add.tcl	29 Jan 2002 00:11:46 -0000	1.3
@@ -51,7 +51,7 @@
 </blockquote>
 "
 
-set category_id [db_string get_new_category_id "select ec_category_id_sequence.nextval from dual"]
+set category_id [db_nextval ec_category_id_sequence]
 
 append page_html "<form method=post action=category-add-2>
 [export_form_vars category_name category_id prev_sort_key next_sort_key]