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.40 -r1.41
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	11 Dec 2003 21:39:56 -0000	1.40
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	4 Jan 2004 21:21:55 -0000	1.41
@@ -540,6 +540,9 @@
 
     global af_element_names
     global af_flag_list
+    global af_to_sql
+    global af_from_sql
+    global af_to_html
 
     # Track element names and their parameters locally as we'll generate those in this form
     # or extend block on the fly
@@ -1037,8 +1040,8 @@
                 if { [info exists af_to_sql(${form_name}__$element_name)] } {
                     uplevel #$level [list set $element_name \
                         [uplevel #$level [list template::util::$af_type(${form_name}__$element_name)::get_property \
-                                      $af_to_sql(${form_name}__$element_name) \
-                                      [uplevel #$level [list set $element_name]]]]]
+                             $af_to_sql(${form_name}__$element_name) \
+                             [uplevel #$level [list set $element_name]]]]]
                 }
             }
         }