Index: openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jul 2018 08:02:28 -0000	1.9
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jul 2018 12:28:40 -0000	1.10
@@ -82,7 +82,7 @@
     set typos [dict create]
 
     # Create the typo dictionary with values from the common typos file
-    set f [open $typo_list]
+    set f [open $typo_list "r"]
     while {[gets $f line] >= 0} {
         dict append typos {*}[string tolower $line]
     }