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.261 -r1.262
--- openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	11 Jul 2008 16:37:17 -0000	1.261
+++ openacs-4/packages/xowiki/tcl/xowiki-procs.tcl	15 Jul 2008 21:35:16 -0000	1.262
@@ -1323,7 +1323,10 @@
 	return $f
       }
     }
-    error "No form field with name $name found"
+    set names [list]
+    foreach f $form_fields {lappend names [$f name]}
+    error "No form field with name $name found\
+	(available fields: [lsort [array names ::_form_field_names]])"
   }
 
   Page instproc lookup_cached_form_field {
@@ -1342,6 +1345,7 @@
     set msg ""
     foreach f $form_fields { append msg "[$f name] [namespace tail [$f info class]], " }
     my msg $msg
+    my log "XXX ff: $msg"
   }
 
 
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.154 -r1.155
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Jul 2008 16:38:08 -0000	1.154
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Jul 2008 21:35:16 -0000	1.155
@@ -1088,7 +1088,7 @@
               lappend errors [list field [$f name] value [$f set value] error [$f error_msg]]
             }
           }
-	  set evaluation_error ""
+	  set evaluation_errors ""
 	  if {[$package_id exists __evaluation_error]} {
 	    set evaluation_errors "\nEvaluation error: [$package_id set __evaluation_error]"
 	    $package_id unset __evaluation_error