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.8 -r1.9
--- openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	23 Jul 2018 22:27:48 -0000	1.8
+++ openacs-4/packages/acs-tcl/tcl/test/doc-check-procs.tcl	24 Jul 2018 08:02:28 -0000	1.9
@@ -87,10 +87,12 @@
         dict append typos {*}[string tolower $line]
     }
     close $f
+    aa_log "Created typo dictionary using data from $typo_list ([dict size $typos] typos loaded)"
 
     # Check for the typos
     set count 0
     set good 0
+    set checks 0
     foreach p [lsort -dictionary [nsv_array names api_proc_doc]] {
         incr count
         set typo_number 0
@@ -107,6 +109,7 @@
                 $main_doc]]
         if { $proc_doc_clean ne "" } {
             foreach typo [dict keys $typos] {
+                incr checks
                 #ns_log Notice "Typo check in $p: Typo: $typo Doc: $proc_doc_clean"
                 if { "$typo" in $proc_doc_clean } {
                     # Typo found!
@@ -120,7 +123,7 @@
             incr good
         }
     }
-    aa_log "Documentation seems typo free in $good of $count checked procs"
+    aa_log "Documentation seems typo free in $good of $count checked procs (total typo checks: $checks)"
 }
 
 # Local variables: