Index: openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	6 Apr 2010 02:01:05 -0000	1.3
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.tcl	5 Mar 2019 14:14:01 -0000	1.4
@@ -40,10 +40,10 @@
 
                 # Create a dummy component
                 bug_tracker::components_flush
-                db_1row new_component_id {}
+                set component_id [db_nextval acs_object_id_seq]
                 db_dml new_component {}
 
-                db_1row new_bug_id {}
+                set bug_id [db_nextval acs_object_id_seq]
                 bug_tracker::bug::new \
                     -bug_id $bug_id \
                     -package_id $package_id \
Index: openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql	13 Jan 2005 13:56:17 -0000	1.2
+++ openacs-4/packages/bug-tracker/tcl/test/bug-tracker-procs.xql	5 Mar 2019 14:14:01 -0000	1.3
@@ -8,13 +8,6 @@
     </querytext>
 </fullquery>
 
-<fullquery name="_bug-tracker__project_new.new_component_id">
-    <querytext>
-        select acs_object_id_seq.nextval as component_id
-        from dual
-    </querytext>
-</fullquery>
-
 <fullquery name="_bug-tracker__project_new.new_component">
     <querytext>
         insert into bt_components
@@ -24,12 +17,5 @@
     </querytext>
 </fullquery>
 
-<fullquery name="_bug-tracker__project_new.new_bug_id">
-    <querytext>
-        select acs_object_id_seq.nextval as bug_id
-        from dual
-    </querytext>
-</fullquery>
-
 </queryset>