Index: openacs.org-dev/packages/forums/www/message-post.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/forums/www/message-post.tcl,v
diff -u -r1.9 -r1.10
--- openacs.org-dev/packages/forums/www/message-post.tcl	21 Oct 2002 18:42:42 -0000	1.9
+++ openacs.org-dev/packages/forums/www/message-post.tcl	1 Nov 2002 16:18:17 -0000	1.10
@@ -17,7 +17,8 @@
     }
 }
 
-set user_id [ad_verify_and_get_user_id]
+ad_maybe_redirect_for_registration
+set user_id [ad_conn user_id]
 
 # get the colors from the params
 set table_border_color [parameter::get -parameter table_border_color]