Index: openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl,v
diff -u -N -r1.17 -r1.18
--- openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	18 Sep 2002 12:10:44 -0000	1.17
+++ openacs-4/packages/acs-tcl/tcl/utilities-procs.tcl	20 Sep 2002 22:20:01 -0000	1.18
@@ -2843,23 +2843,23 @@
     return [regexp "^\[^@<>\"\t ]+@\[^@<>\".\t ]+(\\.\[^@<>\".\n ]+)+$" $query_email]
 }
 
-ad_proc util_email_unique_p { email } {
+ad_proc -public util_email_unique_p { email } {
     Returns 1 if the email passed in does not yet exist in the system.
 
     @author yon (yon@openforce.net)
 } {
     return [db_string email_unique_p {}]
 }
 
-ad_proc util_url_valid_p { query_url } {
+ad_proc -public util_url_valid_p { query_url } {
     Returns 1 if a URL is a web URL (HTTP or HTTPS).
 
     @author Philip Greenspun (philg@mit.edu)
 } {
-    return [regexp {https?://.+} $query_url]
+    return [regexp {https?://[^ ].+} $query_url]
 }
 
-ad_proc value_if_exists { var_name } {
+ad_proc -public value_if_exists { var_name } {
     If the specified variable exists in the calling environment,
     returns the value of that variable. Otherwise, returns the
     empty_string.
@@ -2870,7 +2870,7 @@
     }
 }
 
-ad_proc max { args } {
+ad_proc -public max { args } {
     Returns the maximum of a list of numbers. Example: <code>max 2 3 1.5</code> returns 3.
     
     @author Lars Pind (lars@pinds.com)