Index: openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl,v
diff -u -N -r1.28 -r1.29
--- openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	21 Feb 2002 19:00:38 -0000	1.28
+++ openacs-4/packages/dotlrn-fs/tcl/dotlrn-fs-procs.tcl	21 Feb 2002 21:55:33 -0000	1.29
@@ -198,6 +198,11 @@
         # get the user's portal
         set portal_id [dotlrn::get_workspace_portal_id $user_id]
 
+        set page_id [portal::get_page_id \
+            -portal_id $portal_id \
+            -page_name [get_user_default_page] \
+        ]
+
         # add the portlet here
         if {![empty_string_p $portal_id]} {
             fs_portlet::add_self_to_page \