Index: openacs-4/packages/new-portal/tcl/portal-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs.xql,v
diff -u -N -r1.49 -r1.50
--- openacs-4/packages/new-portal/tcl/portal-procs.xql	11 Mar 2008 19:31:30 -0000	1.49
+++ openacs-4/packages/new-portal/tcl/portal-procs.xql	24 Apr 2009 11:51:21 -0000	1.50
@@ -400,6 +400,14 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="portal::add_element_to_region.get_sort_key">
+      <querytext>
+        select max(sort_key) + 1
+        from portal_element_map
+        where region = :region and page_id = :page_id
+      </querytext>
+    </fullquery>
+
     <fullquery name="portal::configure_dispatch.revert_get_source_page_id">
         <querytext>
             select page_id