Index: openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl,v
diff -u -r1.21.2.2 -r1.21.2.3
--- openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	20 Dec 2019 16:30:19 -0000	1.21.2.2
+++ openacs-4/packages/acs-tcl/tcl/test/file-test-procs.tcl	26 Dec 2019 14:44:08 -0000	1.21.2.3
@@ -446,7 +446,7 @@
             # '::xowiki::Package initialize -ad_doc' idioms are not
             # that easy to identify, as nothing prevents from writing
             # them on multiple lines or using different flags... This
-            # simple pattern matching is based on ocurrences as found
+            # simple pattern matching is based on occurrences as found
             # in upstream code.
             set patterns [list "::xowiki::Package initialize -ad_doc" "ad_page_contract" "ad_include_contract"]
             if {[regexp [join $patterns |] $line]} {