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.26 -r1.27
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	16 Jan 2002 21:17:05 -0000	1.26
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	23 Jan 2002 07:58:35 -0000	1.27
@@ -38,6 +38,7 @@
     }
 
     ad_proc -public add_self_to_page { 
+        {-page_id ""}
 	portal_id 
 	instance_id
 	folder_id 
@@ -53,6 +54,7 @@
 	@creation-date Sept 2001
     } {
         return [portal::add_element_or_append_id -portal_id $portal_id \
+                -page_id $page_id \
                 -portlet_name [my_name] \
                 -value_id $folder_id \
                 -key folder_id]