Index: openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl,v
diff -u -N -r1.43.2.17 -r1.43.2.18
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	28 Feb 2017 17:42:00 -0000	1.43.2.17
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	21 Apr 2017 20:13:52 -0000	1.43.2.18
@@ -91,7 +91,7 @@
   #
   # A class to keep simple statistics
   #
-  Class create ThrottleStat -parameter { type requestor timestamp ip_adress url }
+  Class create ThrottleStat -parameter { type requestor timestamp ip_address url }
 
   #
   # class for throtteling eager requestors or to block duplicate requests
@@ -111,14 +111,14 @@
     next
   }
 
-  Throttle instproc add_statistics { type requestor ip_adress url query } {
+  Throttle instproc add_statistics { type requestor ip_address url query } {
     #set furl [expr {$query ne "" ? "$url?$query" : $url}]
     incr :${type}s
     # :log "++++ add_statistics   -type $type -user_id $requestor "
     set entry [ThrottleStat new -childof [self]::stats \
                    -type $type -requestor $requestor \
                    -timestamp [clock seconds] \
-                   -ip_adress $ip_adress -url $url]
+                   -ip_address $ip_address -url $url]
   }
 
   Throttle instproc url_statistics {{-flush 0}} {
@@ -131,7 +131,7 @@
     } else {
       foreach stat $data {
         lappend output [list [$stat type] [$stat requestor] \
-                            [$stat timestamp] [$stat ip_adress] [$stat url]]
+                            [$stat timestamp] [$stat ip_address] [$stat url]]
       }
       return $output
     }
@@ -965,7 +965,7 @@
       # Check, if the peer address changed. This might be some
       # indication, that multiple users are working under the same
       # user_id, or that the identity was highjacked. Therefore, we
-      # note such occurences.
+      # note such occurrences.
       #
       if {[$class set pa($key)] ne $pa} {
         if {[catch {$class incr switches($key)}]} {