Index: openacs-4/packages/acs-tcl/tcl/security-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/security-procs.tcl,v
diff -u -r1.74.2.2 -r1.74.2.3
--- openacs-4/packages/acs-tcl/tcl/security-procs.tcl	7 Sep 2013 08:37:59 -0000	1.74.2.2
+++ openacs-4/packages/acs-tcl/tcl/security-procs.tcl	29 Sep 2013 14:55:32 -0000	1.74.2.3
@@ -669,11 +669,11 @@
     append url "register/"
 
     set export_vars [list]
-    if { [exists_and_not_null authority_id] } {
+    if { [info exists authority_id] && $authority_id ne "" } {
         lappend export_vars authority_id
         
     }
-    if { [exists_and_not_null username] } {
+    if { ([info exists username] && $username ne "") } {
         lappend export_vars username
         
     }