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.83 -r1.84
--- openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Jul 2008 10:57:45 -0000	1.83
+++ openacs-4/packages/xowiki/tcl/form-field-procs.tcl	4 Jul 2008 11:38:32 -0000	1.84
@@ -180,8 +180,8 @@
       help_text=* {my help_text [lindex [split $s =] 1]}
       *=*         {
         set p [string first = $s]
-        set attribute [string range $s 0 $p-1]
-        set value [string range $s $p+1 end]
+        set attribute [string range $s 0 [expr {$p-1}]]
+        set value [string range $s [expr {$p+1}] end]
         set definition_class [lindex [my procsearch $attribute] 0]
         if {[string match "::xotcl::*" $definition_class] || $definition_class eq ""} {
           error [_ xowiki.error-form_constraint-unknown_attribute [list name [my name] entry $attribute]]
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.150 -r1.151
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Jul 2008 10:57:45 -0000	1.150
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	4 Jul 2008 11:38:32 -0000	1.151
@@ -501,7 +501,6 @@
           set hleft [my h_double_quote $lhs]
           set tleft "\$__ia($lhs)"
           lappend vars $lhs ""
-          set op eq
           foreach p [split $rhs_expr |] {
             lappend tcl_clause "$tleft $tcl_op($op) {$p}"
             lappend h_clause "$hleft=>[my h_double_quote $p]"