--- register/prgsrc/register-redirect.cgi	2003/07/16 02:08:28	1.1
+++ register/prgsrc/register-redirect.cgi	2003/09/26 15:19:22	1.2
@@ -20,11 +20,11 @@ Boris Veytsman
 
 =head1 DATE
 
-$Date: 2003/07/16 02:08:28 $
+$Date: 2003/09/26 15:19:22 $
 
 =head1 REVISION
 
-$Revision: 1.1 $
+$Revision: 1.2 $
 
 =cut
 
@@ -40,6 +40,6 @@ use DBI;
 use POSIX qw(locale_h);
 my $query= new CGI;
 my $self=$query->self_url;
-$self =~ s/register/protected\/register/;
+$self =~ s|cgi-bin/register.cgi|cgi-bin/protected/register.cgi|;
 
-print $query->redirect($self);
\ No newline at end of file
+print $query->redirect($self);