Index: openacs-4/packages/xowiki/tcl/xowiki-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/xowiki-procs.tcl,v
diff -u -r1.542.2.86 -r1.542.2.87
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	25 Sep 2020 09:30:55 -0000	1.542.2.86
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	27 Sep 2020 11:26:08 -0000	1.542.2.87
@@ -3347,9 +3347,10 @@
     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 new -parent_id $source_item_id -name ${:name}]"
-      ::$package_id get_lang_and_name -name $name lang name
-      $f set name $name
+      #set name "[::xowiki::autoname new -parent_id $source_item_id -name ${:name}]"
+      #::$package_id get_lang_and_name -name $name lang name
+      #$f set name $name
+      #ns_log notice "FINAL NAME <$name>"
       #:msg nls=[$f nls_language],source-nls=[$source nls_language]
     }
     foreach {att value} $default_variables {
@@ -3394,7 +3395,7 @@
     return [:substitute_markup $html]
   }
   PlainPage instproc set_content {text} {
-    :text $text
+    set :text $text
   }
 
   PlainPage instproc substitute_markup {raw_content} {
@@ -3822,6 +3823,14 @@
     }
   }
 
+  FormPage instproc set_content {text} {
+    if {$text eq ""} {
+      set :text $text
+    } else {
+      next
+    }
+  }
+
   PageInstance ad_instproc get_from_template {var {default ""}} {
     Get a property from the parent object (template). The parent
     object might by either an ::xowiki::Form or an ::xowiki::FormPage