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 -N -r1.35 -r1.36 --- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 8 Feb 2002 20:50:57 -0000 1.35 +++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl 19 Feb 2002 19:34:45 -0000 1.36 @@ -116,7 +116,7 @@ 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" + # ns_log notice "is_package_mounted: package_list is $package_list" for {set x 1} {$x < [llength $package_list]} {incr x 2} { array set package_info [lindex $package_list $x] @@ -130,6 +130,7 @@ break } } + return $dotlrn_ancestor_p }