Index: openacs-4/packages/bm-portlet/www/bm-portlet.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/bm-portlet/www/bm-portlet.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/bm-portlet/www/bm-portlet.tcl	22 Jun 2002 20:11:03 -0000	1.3
+++ openacs-4/packages/bm-portlet/www/bm-portlet.tcl	13 Jul 2002 00:13:10 -0000	1.4
@@ -38,6 +38,6 @@
 set admin_p [permission::permission_p -object_id $package_id -privilege admin]
 
 set spam_name [bulk_mail::parameter -parameter PrettyName -default Spam]
-set spam_url [site_node::get_url_from_object_id -object_id $package_id]
+set spam_url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0]
 
 ad_return_template