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.153 -r1.154
--- openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	11 Jul 2008 12:21:36 -0000	1.153
+++ openacs-4/packages/xowiki/tcl/xowiki-www-procs.tcl	15 Jul 2008 16:38:08 -0000	1.154
@@ -1088,7 +1088,12 @@
               lappend errors [list field [$f name] value [$f set value] error [$f error_msg]]
             }
           }
-          error "[llength $errors] validation error(s): $errors"
+	  set evaluation_error ""
+	  if {[$package_id exists __evaluation_error]} {
+	    set evaluation_errors "\nEvaluation error: [$package_id set __evaluation_error]"
+	    $package_id unset __evaluation_error
+	  }
+          error "[llength $errors] validation error(s): $errors $evaluation_errors"
         }
         # reset the name in error cases to the original one
         my set name [my form_parameter __object_name]