Index: openacs-4/packages/new-portal/sql/oracle/api-create.sql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/sql/oracle/api-create.sql,v
diff -u -r1.31 -r1.32
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	22 Jan 2002 20:02:39 -0000	1.31
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	23 Jan 2002 06:29:22 -0000	1.32
@@ -94,7 +94,7 @@
                 else
                    update portal_current_page 
                    set page_id = v_page_id
-                   where portal_id = portal_id;
+                   where portal_id = portal_page.new.portal_id;
 
 --                   raise_application_error(-20000, 'aks1 just UPDATED portal_current_page with page_id ' || v_page_id || ' portal_id ' || portal_id || ' page count ' || v_current_page_count); 
                 end if;