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.11 -r1.12
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jul 2018 13:13:59 -0000	1.11
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jul 2018 14:59:13 -0000	1.12
@@ -85,7 +85,6 @@
     set f [open $typo_list "r"]
     while {[gets $f line] >= 0} {
         dict append typos {*}[string tolower $line]
-        lappend Typos [string tolower $line]
     }
     close $f
     aa_log "Created typo dictionary using data from $typo_list ([dict size $typos] typos loaded)"
@@ -95,11 +94,11 @@
     set good 0
     set checks 0
     set ignorechars {
-        , " " 
+        , " "
         ( " " ) " " < " " > " "
         \[ " " \] " "
         \{ " " \} " "
-        < " " > " "        
+        < " " > " "
         . " " : " "   ; " " ? " " ! " "
         = " "
         \r " "