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.21 -r1.22
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	5 Dec 2001 14:11:39 -0000	1.21
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	5 Dec 2001 21:00:53 -0000	1.22
@@ -83,18 +83,23 @@
     } {
         returns 1 if package is mounted under dotlrn, 0 otherwise
     } {
-        set package_list [nsv_array get site_nodes {*${package_key}*}]
+        set package_list [nsv_array get site_nodes "*$package_key*"]
         set dotlrn_ancestor_p 0
 
+        # ns_log notice "is_package_mounted: pakage_list is $package_list"
+
         for {set x 1} {$x < [llength $package_list]} {incr x 2} {
             array set package_info [lindex $package_list $x]
-
+            
+            # ns_log notice "is_package_mounted: [array get package_info]"
+            
             if {[site_node_closest_ancestor_package -default 0 -url $package_info(url) "dotlrn"] != 0} {
                 set dotlrn_ancestor_p 1
+
+                # ns_log notice "is_package_mounted: found dotlrn ancestor of $package_key with url $package_info(url)"
                 break
             }
         }
-
         return $dotlrn_ancestor_p
     }