Index: openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-expenses-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-expenses-create.sql,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-expenses-create.sql	5 Apr 2001 18:23:38 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/sql/oracle/sample-expenses-create.sql	11 Apr 2001 12:41:21 -0000	1.2
@@ -16,6 +16,7 @@
 			references wf_cases on delete cascade
 );
 
+create function inline_0 () returns int
 declare
     v_workflow_key varchar2(40);
 begin
Index: openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql,v
diff -u -r1.7 -r1.8
--- openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql	7 Apr 2001 15:54:55 -0000	1.7
+++ openacs-4/packages/acs-kernel/sql/postgresql/postgresql.sql	11 Apr 2001 12:41:21 -0000	1.8
@@ -1,7 +1,9 @@
 create view dual as select now() as sysdate;
 
 -- used to support anonymous plsql blocks in the db_plsql function call in tcl.
-create sequence anon_func_seq;
+create sequence t_anon_func_seq;
+create view anon_func_seq as 
+select nextval('t_anon_func_seq') as nextval;
 
 create function instr(varchar,char,integer,integer) returns integer as '
 declare
Index: openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/10-database-procs-postgresql.tcl,v
diff -u -r1.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	9 Apr 2001 04:55:14 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/10-database-procs-postgresql.tcl	11 Apr 2001 12:41:21 -0000	1.9
@@ -8,7 +8,7 @@
 }
 
 proc_doc db_nextval { sequence } { Returns the next value for a sequence. This can utilize a pool of sequence values to save hits to the database. } {
-    return [db_string nextval "select nextval('$sequence')"]
+    return [db_string nextval "select ${sequence}.nextval"]
 }
 
 proc_doc db_exec_plsql { statement_name sql args } {