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 -r1.93 -r1.94
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	24 Aug 2018 13:51:04 -0000	1.93
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	4 Sep 2018 18:11:53 -0000	1.94
@@ -192,25 +192,25 @@
     #
     regsub -nocase -all \
         {(href|src)\s*=\s*'((http|https|ftp|mailto):[^'\"]+)'} $html \
-    "\\1='\u0001\\2\u0002'" html
-regsub -nocase -all \
-    {(href|src)\s*=\s*[\"]((http|https|ftp|mailto):[^'\"]+)[\"]} $html \
-    "\\1=\"\u0001\\2\u0002\"" html
+        "\\1='\u0001\\2\u0002'" html
+    regsub -nocase -all \
+        {(href|src)\s*=\s*[\"]((http|https|ftp|mailto):[^'\"]+)[\"]} $html \
+        "\\1=\"\u0001\\2\u0002\"" html
 
-if {[info exists path]} {
-    set path "[string trim $path /]/"
-    regsub -all {(href|src)\s*=\s*['\"]([^/][^\u0001:'\"]+?)['\"]} $html \
-        "\\1='${host}${path}\\2111'" html
-}
-regsub -all {(href|src)\s*=\s*['\"]/([^\u0001:'\"]+?)['\"]} $html \
-    "\\1=\"${host}\\2222\"" html
+    if {[info exists path]} {
+        set path "[string trim $path /]/"
+        regsub -all {(href|src)\s*=\s*['\"]([^/][^\u0001:'\"]+?)['\"]} $html \
+            "\\1='${host}${path}\\2'" html
+    }
+    regsub -all {(href|src)\s*=\s*['\"]/([^\u0001:'\"]+?)['\"]} $html \
+        "\\1='${host}\\2'" html
 
-#
-# Remove all protection characters again.
-#
-regsub -nocase -all {((href|src)\s*=\s*['\"]?)\u0001([^\u0002]*)\u0002} $html {\1\3} html
+    #
+    # Remove all protection characters again.
+    #
+    regsub -nocase -all {((href|src)\s*=\s*['\"]?)\u0001([^\u0002]*)\u0002} $html {\1\3} html
 
-return $html
+    return $html
 }