Index: openacs-4/packages/acs-subsite/lib/user-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/user-info.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	17 Sep 2003 14:25:54 -0000	1.4
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	17 Sep 2003 14:47:04 -0000	1.5
@@ -102,7 +102,7 @@
     set user_info(authority_id) $user(authority_id)
     set user_info(username) $user(username)
     foreach elm $form_elms {
-        if { [empty_string_p $mode($elm)] } {
+        if { [empty_string_p $mode($elm)] && [info exists $elm] } {
             set user_info($elm) [string trim [set $elm]]
         }
     }