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 -N -r1.67 -r1.68
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	10 Jul 2007 14:15:28 -0000	1.67
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	11 Jul 2007 11:57:14 -0000	1.68
@@ -349,6 +349,8 @@
     }
 
     set f [FormField new -name $name \
+               -id        [::xowiki::Portlet html_id F.[my name].$name] \
+               -locale    [my nls_language] \
                -label     $label \
                -type      [expr {[$slot exists datatype] ?  [$slot set datatype] : "text"}] \
                -help_text [expr {[$slot exists help_text] ? [$slot set help_text] : ""}] \
@@ -425,6 +427,7 @@
       }
       set f [FormField new \
                  -name "__category_${tree_name}_$tree_id" \
+                 -locale [my nls_language] \
                  -label $tree_name \
                  -type select \
                  -value $value \
@@ -611,16 +614,9 @@
     lappend field_names _name
     if {[$package_id show_page_order]}  { lappend field_names _page_order }
     lappend field_names _title 
-    foreach fn $form_attributes                  { lappend field_names $fn }
-    foreach fn [list _description _nls_language] { lappend field_names $fn }
-
-    set cr_fields [list]
-    foreach f $field_names {
-      if {![string match _* $f]} continue
-      lappend cr_fields $f
-    }
+    foreach fn $form_attributes                        { lappend field_names $fn }
+    foreach fn [list _text _description _nls_language] { lappend field_names $fn }
     #my msg form_atts=$form_attributes
-    #my msg cr_fields=$cr_fields
 
     set form_fields [my create_form_fields $field_names]
     if {$anon_instances}  {