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 -r1.5 -r1.6
--- openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	12 Dec 2006 20:07:12 -0000	1.5
+++ openacs-4/packages/xotcl-request-monitor/tcl/throttle_mod-procs.tcl	4 Sep 2007 11:32:33 -0000	1.6
@@ -625,8 +625,10 @@
   }
 
 
-  set ::package_id [::Generic::package_id_from_package_key \
-			xotcl-request-monitor]
+  if {[catch {set ::package_id [::xo::package_id_from_package_key xotcl-request-monitor]}]} {
+    # old style
+    set ::package_id [::Generic::package_id_from_package_key xotcl-request-monitor]
+  }
   ns_log notice "+++ package_id of xotcl-request-monitor is $::package_id"
 
   set logdir [parameter::get -package_id $::package_id \