Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl,v
diff -u -r1.64 -r1.65
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	24 Jul 2002 03:53:20 -0000	1.64
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	29 Jul 2002 12:50:53 -0000	1.65
@@ -113,8 +113,8 @@
         returns 1 if package is mounted under dotlrn, 0 otherwise
         FIXME: refactor
     } {
-        set package_list [nsv_array get site_nodes "*$package_key*"]
         set dotlrn_ancestor_p 0
+        set package_list [nsv_array get site_nodes "[get_url]/${package_key}*"]
 
         for {set i 1} {$i < [llength $package_list]} {incr i 2} {
             array set package_info [lindex $package_list $i]