Index: openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl,v
diff -u -r1.29 -r1.30
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	4 Mar 2002 22:43:45 -0000	1.29
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	12 Mar 2002 05:18:01 -0000	1.30
@@ -54,8 +54,10 @@
     } {
         set extra_params [list "package_id" $instance_id]
 
-        return [portal::add_element_or_append_id -portal_id $portal_id \
+        return [portal::add_element_or_append_id \
+                -portal_id $portal_id \
                 -page_id $page_id \
+                -pretty_name [get_pretty_name] \
                 -portlet_name [my_name] \
                 -value_id $folder_id \
                 -key folder_id \