Index: openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl,v
diff -u -N -r1.6 -r1.7
--- openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	16 Apr 2002 13:58:07 -0000	1.6
+++ openacs-4/packages/dotlrn-research/tcl/dotlrn-research-procs.tcl	30 Apr 2002 21:35:52 -0000	1.7
@@ -122,12 +122,13 @@
     } {
         Add a user to a to a specifc dotlrn community
     } {
-        # Get the portal_id by callback
+        # we have a per user comm portal
         set portal_id [dotlrn_community::get_portal_id $community_id $user_id]
 
-        # Call the portal element to be added correctly
-        # Make research paper applet available at community-user page level
-        research_portlet::add_self_to_page $portal_id "" $community_id
+	if { [exists_and_not_null $portal_id] } {
+            research_portlet::make_self_available $portal_id
+            research_portlet::add_self_to_page $portal_id "" $community_id
+        }
     }
 
     ad_proc -public remove_user_from_community {