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 -r1.17 -r1.17.2.1
--- openacs-4/packages/dotlrn/tcl/applets-procs.tcl	9 Aug 2002 18:39:25 -0000	1.17
+++ openacs-4/packages/dotlrn/tcl/applets-procs.tcl	6 Jun 2003 11:39:57 -0000	1.17.2.1
@@ -90,7 +90,8 @@
         }
 
         if {[empty_string_p $pretty_name]} {
-            set pretty_name $package_key
+            # Use the package pretty name as the default name. Makes the context bar look much nicer.
+            set pretty_name [db_string instance_default_name {}]
         }
 
         set parent_node_id [site_node::get_node_id -url [get_url]]
Index: openacs-4/packages/dotlrn/tcl/applets-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/applets-procs.xql,v
diff -u -r1.6 -r1.6.2.1
--- openacs-4/packages/dotlrn/tcl/applets-procs.xql	13 Jul 2002 03:05:24 -0000	1.6
+++ openacs-4/packages/dotlrn/tcl/applets-procs.xql	6 Jun 2003 11:39:57 -0000	1.6.2.1
@@ -45,4 +45,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn_applet::mount.instance_default_name">
+        <querytext>
+            select pretty_name 
+            from   apm_package_types 
+            where  package_key = :package_key 
+        </querytext>
+    </fullquery>
+
 </queryset>
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.67.2.2 -r1.67.2.3
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	7 May 2003 13:32:54 -0000	1.67.2.2
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	6 Jun 2003 11:39:57 -0000	1.67.2.3
@@ -264,11 +264,14 @@
 	# we have a problem here.
 	set parent_node_id [db_string select_node_id {}]
 
+        # Use the package pretty name as the default name. Makes the context bar look much nicer.
+        set pretty_name [db_string package_pretty_name {}]
+
         set new_package_id [site_node_apm_integration::new_site_node_and_package \
             -name $mount_point \
             -parent_id $parent_node_id \
             -package_key $package_key \
-            -instance_name $package_key \
+            -instance_name $pretty_name \
             -context_id $package_id \
         ]
 
Index: openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql,v
diff -u -r1.16 -r1.16.2.1
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	24 May 2002 01:58:45 -0000	1.16
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.xql	6 Jun 2003 11:39:57 -0000	1.16.2.1
@@ -73,4 +73,12 @@
         </querytext>
     </fullquery>
 
+    <fullquery name="dotlrn::instantiate_and_mount.package_pretty_name">
+        <querytext>
+            select pretty_name 
+            from   apm_package_types 
+            where  package_key = :package_key 
+        </querytext>
+    </fullquery>
+
 </queryset>