Index: openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl,v
diff -u -r1.257 -r1.258
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	30 Apr 2010 10:34:52 -0000	1.257
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	30 Apr 2010 11:53:09 -0000	1.258
@@ -1893,7 +1893,7 @@
     if {$source_item_id ne ""} {
       set source [FormPage get_instance_from_db -item_id $source_item_id]
       $f copy_content_vars -from_object $source
-      set name "[::xowiki::autoname generate -parent_id $source_item_id -name [my name]]"
+      set name "[::xowiki::autoname new -parent_id $source_item_id -name [my name]]"
       $package_id get_lang_and_name -name $name lang name
       $f set name $name
       #my msg nls=[$f nls_language],source-nls=[$source nls_language]
@@ -1931,7 +1931,6 @@
       }
     }
 
-
     #
     # collect some default values from query parameters
     #