Index: openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl,v
diff -u -r1.30 -r1.31
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	26 Jul 2002 21:14:59 -0000	1.30
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	29 Jul 2002 12:50:53 -0000	1.31
@@ -53,7 +53,7 @@
     set attachments_package_key [attachments::get_package_key]
     set attachments_mount_point [attachments::get_url]
 
-    if {![dotlrn::is_package_mounted -package_key $attachments_package_key]} {
+    if {![dotlrn::is_package_mounted -package_key $attachments_mount_point]} {
         ns_log notice "dotlrn-init: $attachments_package_key being automounted at [dotlrn::get_url]/$attachments_mount_point"
         dotlrn::mount_package \
             -parent_node_id [dotlrn::get_node_id] \
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]