Index: openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	28 Aug 2008 21:14:48 -0000	1.9
+++ openacs-4/packages/xotcl-core/tcl/06-param-procs.tcl	1 Oct 2008 22:18:28 -0000	1.10
@@ -163,7 +163,8 @@
     -package_key:required
   } {
     return [ns_cache eval xotcl_object_type_cache package_id-$package_key {
-      db_string get_package_id "select package_id from apm_packages where package_key = :package_key"
+      db_string get_package_id [::xo::db::sql select -vars package_id -from apm_packages \
+                                    -where "package_key = :package_key" -limit 1]
     }]
   }