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.112 -r1.113
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Jun 2007 13:45:06 -0000	1.112
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	17 Jun 2007 09:47:36 -0000	1.113
@@ -1022,7 +1022,6 @@
   Page instproc create-new {} {
     my instvar package_id
     set folder_id [my parent_id]
-    my log "--new [::xo::cc array get form_parameter]"
     set name [::xo::cc form_parameter name]
     set name [my complete_name $name]
     set name [::$package_id normalize_name $name]
@@ -1117,8 +1116,8 @@
     if {$form ne ""} {
       array set __ia [my set instance_attributes]
       # we have a form, we get for the time being all variables
-      foreach {att value}  [::xo::cc array get form_parameter] {
-        set __ia($att) $value
+      foreach att [::xo::cc array names form_parameter] {
+        set __ia($att) [::xo::cc form_parameter $att]
       }
       #my log "--set instance attributes to [array get __ia]"
       my set instance_attributes [array get __ia]