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.6 -r1.109.2.7
--- openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 4 Jul 2019 14:14:25 -0000 1.109.2.6
+++ openacs-4/packages/acs-tcl/tcl/text-html-procs.tcl 10 Aug 2019 14:33:26 -0000 1.109.2.7
@@ -1504,7 +1504,7 @@
set string_delimiter [string index $html $string_delimiter_idx]
# If the greater than sign appears before any of the
- # string delimters, we've found the tag end.
+ # string delimiters, we've found the tag end.
if { $gt_idx < $string_delimiter_idx || $string_delimiter_idx == -1 } {
# we found the tag end
set i $gt_idx
@@ -2465,7 +2465,7 @@
value must be an integer > 0.
@arg padstring string that will be repeated until length of
- supplied string is equal or greather than length.
+ supplied string is equal or greater than length.
@return padded string
} {