Index: openacs-4/packages/layout-manager/tcl/page-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/layout-manager/tcl/page-procs.xql,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/layout-manager/tcl/page-procs.xql	8 Feb 2010 22:23:04 -0000	1.6
+++ openacs-4/packages/layout-manager/tcl/page-procs.xql	28 Jul 2010 00:28:33 -0000	1.7
@@ -63,10 +63,10 @@
   <fullquery name="layout::page::clone.insert_page">
     <querytext>
       insert into layout_pages
-        (page_id, name, pageset_id, page_template, theme, sort_key)
-      select :new_page_id, coalesce(:name, lp.name), coalesce(:pageset_id, pageset_id),
-        coalesce(:page_template, lp.page_template), coalesce(:theme, lp.theme),
-        coalesce(:sort_key, sort_key)
+        (page_id, name, url_name, pageset_id, page_template, theme, sort_key)
+      select :new_page_id, coalesce(:name, lp.name), coalesce(:url_name, lp.url_name),
+        coalesce(:pageset_id, pageset_id), coalesce(:page_template, lp.page_template),
+        coalesce(:theme, lp.theme), coalesce(:sort_key, sort_key)
       from layout_pages lp
       where lp.page_id = :page_id
     </querytext>