Index: openacs-4/packages/new-portal/tcl/portal-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.tcl,v
diff -u -r1.32 -r1.33
--- openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 Oct 2001 18:47:06 -0000	1.32
+++ openacs-4/packages/new-portal/tcl/portal-procs.tcl	24 Oct 2001 18:51:31 -0000	1.33
@@ -271,7 +271,7 @@
 		"update portal_element_map 
 	set region = :target_region, 
 	    sort_key = (select nvl(
-	                          (select max(sort_key) 
+	                          (select max(sort_key) + 1
 	                           from portal_element_map 
 	                           where portal_id = :portal_id 
 	                           and region = :target_region),