Index: openacs-4/packages/acs-templating/tcl/form-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/form-procs.tcl,v
diff -u -r1.7.2.8 -r1.7.2.9
--- openacs-4/packages/acs-templating/tcl/form-procs.tcl	2 Jul 2003 19:12:45 -0000	1.7.2.8
+++ openacs-4/packages/acs-templating/tcl/form-procs.tcl	14 Jul 2003 13:42:21 -0000	1.7.2.9
@@ -439,19 +439,17 @@
   # make a reference to the formerror array with any validation messages
   upvar #$level $id:error $id:error
 
+  # Clear the formerror array if it has
+  # been set by another form on the same page
+  upvar #$level formerror formerror
+  if { [info exists formerror] } { unset formerror }
+
   if { [info exists $id:error] } {
 
     uplevel #$level "upvar 0 $id:error formerror"
     
     # There were errors on the form, force edit mode
     set properties(mode) edit
-
-  } else {
-
-    # no errors on this form.  Clear the formerror array if it has
-    # been set by another form on the same page
-    upvar #$level formerror formerror
-    if { [info exists formerror] } { unset formerror }
   }
 
   # Propagate form mode to all form elements