Index: openacs-4/packages/xowiki/tcl/form-field-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/form-field-procs.tcl,v
diff -u -r1.239.2.2 -r1.239.2.3
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	17 Sep 2013 17:49:24 -0000	1.239.2.2
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	29 Sep 2013 20:08:51 -0000	1.239.2.3
@@ -298,8 +298,8 @@
       help_text=* {my help_text [lindex [split $s =] 1]}
       *=*         {
         set p [string first = $s]
-        set attribute [string range $s 0 [expr {$p-1}]]
-        set value [string range $s [expr {$p+1}] end]
+        set attribute [string range $s 0 $p-1]
+        set value [string range $s $p+1 end]
         set definition_class [lindex [my procsearch $attribute] 0]
 	set method [my info methods $attribute]
         if {[string match "::xotcl::*" $definition_class] || $method eq ""} {