Index: openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl,v
diff -u -r1.16.2.17 -r1.16.2.18
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	6 Jun 2003 09:24:34 -0000	1.16.2.17
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	2 Jul 2003 19:30:21 -0000	1.16.2.18
@@ -906,9 +906,13 @@
     }
 
     if { [template::form is_submission $form_name] &&
-         [uplevel #$level {set __refreshing_p}] &&
-         [info exists on_refresh] } {
-        ad_page_contract_eval uplevel #$level $on_refresh
+         [uplevel #$level {set __refreshing_p}] } {
+          
+        uplevel array unset ${form_name}:error
+
+        if { [info exists on_refresh] } {
+            ad_page_contract_eval uplevel #$level $on_refresh
+        }
     }
 
     if { [template::form is_valid $form_name] && ![uplevel #$level {set __refreshing_p}] } {