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.27 -r1.28
--- openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	22 Jun 2002 17:08:05 -0000	1.27
+++ openacs-4/packages/dotlrn/tcl/dotlrn-init.tcl	22 Jun 2002 17:39:09 -0000	1.28
@@ -40,15 +40,15 @@
     set portal_mount_point [portal::automount_point]
 
     # we now mount new-portal at the automount point if it's not already mounted, of course
-    if {[site_nodes::mount_count -package_key $portal_package_key] == 0} {
+    if {[apm_num_instances $portal_package_key] == 0} {
 
         ns_log notice "dotlrn-init: $portal_package_key being automounted at /$portal_mount_point"
 
         dotlrn::mount_package \
-                -parent_node_id [site_node_id "/"] \
-                -package_key $portal_package_key \
-                -url $portal_mount_point \
-                -directory_p t
+            -parent_node_id [site_node_id "/"] \
+            -package_key $portal_package_key \
+            -url $portal_mount_point \
+            -directory_p t
     }
 
     db_transaction {