Index: openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl,v
diff -u -r1.23 -r1.24
--- openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	3 Sep 2007 21:06:42 -0000	1.23
+++ openacs-4/packages/xotcl-core/tcl/01-debug-procs.tcl	4 Sep 2007 11:31:18 -0000	1.24
@@ -80,6 +80,11 @@
       }
     }
   }
+
+  proc package_id_from_package_key { key } {
+    return [db_string dbqd.null.get_package_id_from_key \
+                {select package_id from apm_packages where package_key = :key}]
+  }
 }
 
 ::xotcl::Object instforward db_1row -objscope