Index: openacs-4/packages/dotlrn/www/register-link.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/www/register-link.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/dotlrn/www/register-link.tcl	15 May 2007 20:14:25 -0000	1.2
+++ openacs-4/packages/dotlrn/www/register-link.tcl	1 Nov 2013 21:08:32 -0000	1.3
@@ -14,18 +14,18 @@
 } -errors {
 }
 
-if { ![exists_and_not_null url] } {
+if { (![info exists url] || $url eq "") } {
     set base_url "register"
 } else {
     set base_url $url
 }
 
-if { [exists_and_not_null referer] } {
+if { ([info exists referer] && $referer ne "") } {
     set url "[export_vars -base $base_url {community_id}]&referer=$referer"
 } else {
     set url [export_vars -base $base_url {community_id}]
 }
     
-if { ![exists_and_not_null label] } {
+if { (![info exists label] || $label eq "") } {
     set label [_ dotlrn.Join]
 }