backport from HEAD.

Bumped version number to 0.67d1, leaving room for further backports

Author: gustafn

tcl/throttle_mod-procs.tcl

@@ -94,15 +94,6 @@ if {"async-cmd" ni [ns_job queues]} {
   #
   Class create AsyncLogFile -parameter {filename {mode a}}
 
-  AsyncLogFile instproc init {} {
-    if {![info exists :filename]} {
-      set :filename $::logdir/[namespace tail [self]]
-    }
-    :open
-  }
-
-  Class create AsyncLogFile -parameter {filename {mode a}}
-
   AsyncLogFile instproc init {} {
     try {
       if {![info exists :filename]} {

xotcl-request-monitor.info

@@ -8,7 +8,7 @@
     <singleton-p>t</singleton-p>
     <auto-mount>request-monitor</auto-mount>
 
-    <version name="0.66" url="http://media.wu-wien.ac.at/download/xotcl-request-monitor-0.66.apm">
+    <version name="0.67d1" url="http://media.wu-wien.ac.at/download/xotcl-request-monitor-0.67d1.apm">
         <owner url="mailto:neumann@wu-wien.ac.at">Gustaf Neumann</owner>
         <vendor url="http://wu.ac.at">WU Vienna</vendor>
         <summary>Request Monitor with user tracking functionality</summary>
@@ -33,7 +33,7 @@ Updated for circumventing handler calls OpenACS 5.2 for /resources/*.
 </description>
         <license>BSD-Style</license>
         <maturity>2</maturity>
-        <provides url="xotcl-request-monitor" version="0.66"/>
+        <provides url="xotcl-request-monitor" version="0.67d1"/>
 	<requires url="acs-kernel" version="5.10.1"/>
 	<requires url="acs-tcl" version="5.10.1"/>
         <requires url="xotcl-core" version="5.10.1"/>