Index: openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl	20 Aug 2002 19:22:00 -0000	1.4
+++ openacs.org-dev/packages/forums/tcl/forums-sc-procs.tcl	21 Aug 2002 11:42:42 -0000	1.5
@@ -40,7 +40,8 @@
 } {
     forum::message::get -message_id $message_id -array message
     set forum_id $message(forum_id)
-    set url "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
+
+    return "[ad_url][db_string select_forums_package_url {}]message-view?message_id=$message_id"
 }
 
 }