Index: openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	18 Feb 2002 19:54:52 -0000	1.9
+++ openacs-4/packages/new-portal/tcl/portal-procs-oracle.xql	18 Feb 2002 20:53:42 -0000	1.10
@@ -86,7 +86,7 @@
     insert into portal_element_map
     (element_id, name, pretty_name, page_id, datasource_id, region, sort_key)
     values
-    (:new_element_id, :ds_name, :ds_name, :page_id, :ds_id, :region,  
+    (:new_element_id, :ds_name, :pretty_name, :page_id, :ds_id, :region,  
     nvl((select max(sort_key) + 1 
          from portal_element_map
          where region = :region