Index: openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl,v
diff -u -r1.22 -r1.23
--- openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	6 Nov 2009 12:18:56 -0000	1.22
+++ openacs-4/packages/xotcl-core/tcl/06-package-procs.tcl	26 Nov 2009 12:02:16 -0000	1.23
@@ -31,7 +31,7 @@
                      and ppm.party_id = :party_id
                      and ppm.privilege = :privilege
                    } -limit 1]
-      db_string get_package_id $sql
+      db_string [my qn get_package_id] $sql
     } else {
       ::xo::parameter get_package_id_from_package_key -package_key $package_key
     }