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.15 -r1.16
--- openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	21 Jan 2002 06:30:11 -0000	1.15
+++ openacs-4/packages/dotlrn/tcl/dotlrn-main-portlet-procs.tcl	22 Jan 2002 01:34:24 -0000	1.16
@@ -31,6 +31,7 @@
     }
 
     ad_proc -public add_self_to_page { 
+        {-page_id ""}
         portal_id 
         instance_id 
     } {
@@ -44,7 +45,7 @@
         @creation-date Nov 2001
     } {
         # Tell portal to add this element to the page
-        set element_id [portal::add_element $portal_id [my_name]]
+        set element_id [portal::add_element -page_id $page_id $portal_id [my_name]]
 
         return $element_id
     }