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.109.2.22 -r1.109.2.23
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	6 Sep 2021 09:47:31 -0000	1.109.2.22
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl	6 Sep 2021 16:51:55 -0000	1.109.2.23
@@ -1363,7 +1363,7 @@
                         set url [string trim [$node getAttribute $att ""]]
                         if {$url eq ""} continue
 
-                        set prot ""
+                        set proto ""
                         try {
                             set parsed_url [ns_parseurl $url]
                             set proto [expr {[dict exists $parsed_url proto] ? [dict get $parsed_url proto] : ""}]