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.22.2.2 -r1.22.2.3
--- openacs-4/packages/acs-subsite/lib/user-info.tcl	20 Oct 2015 08:01:05 -0000	1.22.2.2
+++ openacs-4/packages/acs-subsite/lib/user-info.tcl	18 Apr 2016 14:35:58 -0000	1.22.2.3
@@ -218,13 +218,18 @@
 
 # LARS HACK: Make the URL and email elements real links
 if { ![form is_valid user_info] } {
-    element set_properties user_info email -display_value "<a href=\"mailto:[element get_value user_info email]\">[element get_value user_info email]</a>"
-    if {![string match -nocase "http://*" [element get_value user_info url]]} {
-	element set_properties user_info url -display_value \
-		"<a href=\"http://[element get_value user_info url]\">[element get_value user_info url]</a>"
+    element set_properties user_info email \
+        -display_value "<a href=\"mailto:[element get_value user_info email]\">[element get_value user_info email]</a>"
+    
+    set url [element get_value user_info url]
+    if {   ![string match -nocase "http://*" $url]
+        && ![string match -nocase "https://*" $url]
+    } {
+        element set_properties user_info url \
+            -display_value "<a href=\"http://$url\">$url</a>"
     } else {
 	element set_properties user_info url -display_value \
-		"<a href=\"[element get_value user_info url]\">[element get_value user_info url]</a>"
+		"<a href=\"$url\">$url</a>"
     }
 }