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.4 -r1.16.2.5
--- openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	24 Oct 2002 20:36:35 -0000	1.16.2.4
+++ openacs-4/packages/acs-tcl/tcl/form-processing-procs.tcl	25 Oct 2002 18:56:43 -0000	1.16.2.5
@@ -522,7 +522,9 @@
         foreach value $export {
             set name [lindex $value 0]
             if { [llength $value] == 1 } {
-                template::element create $form_name $name -datatype text -widget hidden -value [uplevel [list set $name]]
+                if { [uplevel [list info exists $name]] } {
+                    template::element create $form_name $name -datatype text -widget hidden -value [uplevel [list set $name]]
+                }
             } else {
                 template::element create $form_name $name -datatype text -widget hidden -value [uplevel [list subst [lindex $value 1]]]
             }