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 -N -r1.542.2.76 -r1.542.2.77
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	1 Jul 2020 19:31:58 -0000	1.542.2.76
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	17 Jul 2020 13:49:19 -0000	1.542.2.77
@@ -609,7 +609,7 @@
   Page set markupmap(unescape) [list \03\01 "\[\["    \03\02 "\{\{"   \03\03 ">>"  ]
 
   #
-  # templating and CSS
+  # Templating and CSS
   #
 
   Page proc quoted_html_content text {
@@ -4668,6 +4668,20 @@
     return [expr $wc(tcl)]
   }
 
+  FormPage instproc langstring {attname lang {default ""}} {
+    set result $default
+    if {[:exists_property langstring]} {
+      set d [:property langstring]
+      if {[dict exists $d $attname $lang]} {
+        set result [dict get $d $attname $lang]
+      }
+    }
+    return $result
+  }
+  FormPage instproc update_langstring_property {attname lang} {
+    :set_property $attname [:langstring $attname $lang [:property $attname]]
+  }
+
   #
   # end property management
   #