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.20 -r1.21
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	31 Dec 2002 17:48:07 -0000	1.20
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	11 Jan 2003 01:02:58 -0000	1.21
@@ -700,6 +700,14 @@
                     return -code error "Edit request block conflicts with select query"
                 }
                 ad_page_contract_eval uplevel #$level $edit_request
+                foreach element_name $af_element_names($form_name) {
+                    if { [llength $element_name] == 1 } {
+                        if { [uplevel \#$level [list info exists $element_name]] } {
+                            set values($element_name) [uplevel \#$level [list set $element_name]]
+                        }
+                    }
+                }            
+
             } else {
 
                 # The key exists, grab the existing values if we have an select_query clause