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.28 -r1.29
--- openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	21 Feb 2002 19:00:21 -0000	1.28
+++ openacs-4/packages/fs-portlet/tcl/fs-portlet-procs.tcl	4 Mar 2002 22:43:45 -0000	1.29
@@ -52,11 +52,14 @@
 	@author arjun@openforce.net
 	@creation-date Sept 2001
     } {
+        set extra_params [list "package_id" $instance_id]
+
         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]
+                -key folder_id \
+                -extra_params $extra_params]
     }
 
     ad_proc -public remove_self_from_page { 
@@ -70,11 +73,14 @@
 	  @author arjun@openforce.net
 	  @creation-date Sept 2001
     } {
+        set extra_params [list "package_id" $instance_id]
+
         portal::remove_element_or_remove_id \
             -portal_id $portal_id \
             -portlet_name [my_name] \
             -value_id $folder_id \
-            -key "folder_id"
+            -key "folder_id" \
+            -extra_params $extra_params
     }
 
     ad_proc -public make_self_available {