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.332 -r1.333
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	12 Feb 2009 15:07:15 -0000	1.332
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	13 Feb 2009 20:39:32 -0000	1.333
@@ -846,7 +846,7 @@
     # are defined with the same lang), but the only thing relvant is
     # the lang anyhow.  If nothing matches return empty.
     foreach nls_language [lang::system::get_locales] {
-      if {[string range $nls_language] eq $lang} {
+      if {[string range $nls_language 0 1] eq $lang} {
         return $nls_language
       }
     }
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.215 -r1.216
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	9 Feb 2009 21:04:17 -0000	1.215
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	13 Feb 2009 20:39:32 -0000	1.216
@@ -700,6 +700,11 @@
     #my msg "found field = $fields xp=//*\[@name='$att'\]"
     foreach field $fields {
       # TODO missing: textarea
+      if {[$field nodeName] eq "textarea"} {
+         foreach node [$field childNodes] {$node delete}
+         $field appendFromScript {::html::t $value}
+         continue
+      }
       if {[$field nodeName] ne "input"} continue
       set type [expr {[$field hasAttribute type] ? [$field getAttribute type] : "text"}]
       # the switch should be really different objects ad classes...., but thats HTML, anyhow.
@@ -736,7 +741,7 @@
         hidden -
         password -
         text {  $field setAttribute value $value}
-        default {my msg "can't handle $type so far $att=$value"}
+        default {my log "can't handle $type so far $att=$value"}
       }
     }
   }