Index: openacs-4/packages/dotlrn/tcl/applets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	2 Jul 2002 22:31:15 -0000	1.12
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	9 Jul 2002 22:05:10 -0000	1.13
@@ -136,8 +136,7 @@
         }
 
         # Find the parent node
-        set applets_url [get_url]
-        set parent_node_id [site_node_id $applets_url]
+        set parent_node_id [site_node::get_node_id -url [get_url]]
 
         set package_id [dotlrn::mount_package \
             -parent_node_id $parent_node_id \
@@ -153,6 +152,8 @@
     ad_proc -public is_applet_mounted {
         {-url:required}
     } {
+        is the applet specified mounted at the specified url?
+    } {
         if {[nsv_exists site_nodes "[get_url]/$url/"]} {
             return 1
         } else {