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.16 -r1.17
--- openacs-4/packages/new-portal/sql/oracle/api-create.sql	14 Nov 2001 20:21:36 -0000	1.16
+++ openacs-4/packages/new-portal/sql/oracle/api-create.sql	14 Nov 2001 22:02:40 -0000	1.17
@@ -46,6 +46,7 @@
 	) return portals.portal_id%TYPE
 	is
 		v_portal_id portals.portal_id%TYPE;
+		v_theme_id portals.theme_id%TYPE;
 	begin
 		v_portal_id := acs_object.new (
 			object_id	=> portal_id,
@@ -56,13 +57,16 @@
 			context_id	=> context_id
 		);
 
+
+		select max(theme_id) into v_theme_id from portal_element_themes;
+
 		insert into portals (portal_id, layout_id, name, theme_id) 
 		       values (v_portal_id, 
 			       layout_id, 
 			       'Untitled', 
-			       nvl((select max(theme_id) from portal_element_themes), 1) 
+			       v_theme_id
 			       );
-`
+
 		return v_portal_id;
 	end new;