Index: openacs-4/packages/acs-subsite/www/register/user-new-2.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/www/register/Attic/user-new-2.tcl,v
diff -u -r1.7.2.1 -r1.7.2.2
--- openacs-4/packages/acs-subsite/www/register/user-new-2.tcl	20 Jan 2003 13:48:05 -0000	1.7.2.1
+++ openacs-4/packages/acs-subsite/www/register/user-new-2.tcl	8 Aug 2003 00:58:30 -0000	1.7.2.2
@@ -11,7 +11,7 @@
     { last_name:notnull }
     { question "" }
     { answer "" }
-    { url }
+    { url "" }
     { user_id:integer,notnull }
     { return_url [ad_pvt_home] }
     { persistent_cookie_p 0 }
@@ -37,11 +37,19 @@
     append exception_text "<li> You can't have a &lt; in your last name because it will look like an HTML tag and confuse other users."
 }
 
-if { [info exists url] && [string compare $url "http://"] == 0 } {
-    # the user left the default hint for the url
+if { [info exists url] && \
+     ( [empty_string_p $url] || \
+       [string compare $url "http://"] == 0 ) } {
+
+    #
+    # The user left the default hint for the url, or it's empty.
+    #
     set url ""
+
 } elseif { ![util_url_valid_p $url] } {
+
     # there is a URL but it doesn't match our REGEXP
+
     incr exception_count
     append exception_text "<li>You URL doesn't have the correct form.  A valid URL would be something like \"http://photo.net/philg/\"."
 }