Index: openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl,v
diff -u -N -r1.65.6.1 -r1.65.6.2
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Aug 2013 11:01:49 -0000	1.65.6.1
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	27 Aug 2013 17:05:58 -0000	1.65.6.2
@@ -789,7 +789,7 @@
                     }
             
                     if { [string tolower $attr_name] ne "style" } {
-                        if { [regexp {^\s*([^\s:]+):} $attr_value match protocol] } {
+                        if { [regexp {^\s*([^\s:]+):\/\/} $attr_value match protocol] } {
                             if { ![info exists allowed_protocol([string tolower $protocol])] && ![info exists allowed_protocol(*)] } {
                                 return "Your URLs can only use these protocols: [join $allowed_protocols_list ", "].
                 You have a '$protocol' protocol in there."