Index: openacs-4/packages/acs-subsite/lib/login.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-subsite/lib/login.tcl,v
diff -u -N -r1.24 -r1.24.2.1
--- openacs-4/packages/acs-subsite/lib/login.tcl	13 Jan 2005 13:55:31 -0000	1.24
+++ openacs-4/packages/acs-subsite/lib/login.tcl	18 Sep 2005 19:56:59 -0000	1.24.2.1
@@ -86,7 +86,7 @@
 }
 
 set login_button [list [list [_ acs-subsite.Log_In] ok]]
-ad_form -name login -html { style "margin: 0px;" } -show_required_p 0 -edit_buttons $login_button -action "/register/" -form {
+ad_form -name login -html { style "margin: 0px;" } -show_required_p 0 -edit_buttons $login_button -action "[subsite::get_element -element url]register/" -form {
     {return_url:text(hidden)}
     {time:text(hidden)}
     {token_id:text(hidden)}