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.17 -r1.18
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	4 Dec 2001 21:33:23 -0000	1.17
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	4 Dec 2001 22:43:20 -0000	1.18
@@ -78,7 +78,7 @@
         mount a package under dotlrn
     } {
         db_transaction {
-            sete parent_node [site_node [site_node_closest_ancestor_package_url $url]]
+            set parent_node [site_node [site_node_closest_ancestor_package_url -package_key $package_key]]
             set parent_id $parent_node(node_id)
             set parent_package_id $parent_node(object_id)