Index: openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl,v
diff -u -r1.18 -r1.19
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	23 Jan 2002 00:15:43 -0000	1.18
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	12 Mar 2002 05:16:20 -0000	1.19
@@ -44,11 +44,9 @@
         @author arjun@openforce.net
         @creation-date Nov 2001
     } {
+
         # Tell portal to add this element to the page
-        set element_id [portal::add_element \
-                -page_id $page_id \
-                -force_region 2 \
-                $portal_id [my_name]]
+        set element_id [portal::add_element -force_region 2 -page_id $page_id -pretty_name [get_pretty_name] $portal_id [my_name]]
 
         return $element_id
     }