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.36 -r1.37
--- openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	19 Feb 2002 19:34:45 -0000	1.36
+++ openacs-4/packages/dotlrn/tcl/dotlrn-procs.tcl	14 Mar 2002 06:47:58 -0000	1.37
@@ -139,6 +139,7 @@
         {-package_key:required}
         {-url:required}
         {-directory_p:required}
+        {-pretty_name ""}
     } {
         mount a package under dotlrn
     } {
@@ -165,7 +166,11 @@
                 end;
             }]
 
-            set package_id [site_node_create_package_instance $node_id $package_key $parent_package_id $package_key]
+                if {[empty_string_p $pretty_name]} {
+                    set pretty_name $package_key
+                }
+
+            set package_id [site_node_create_package_instance $node_id $pretty_name $parent_package_id $package_key]
         }
 
         return $package_id