diff --git a/codepot/etc/perl/Codepot/AccessHandler.pm b/codepot/etc/perl/Codepot/AccessHandler.pm
index 05eecb00..ff70a7de 100644
--- a/codepot/etc/perl/Codepot/AccessHandler.pm
+++ b/codepot/etc/perl/Codepot/AccessHandler.pm
@@ -310,10 +310,13 @@ sub is_read_method
 sub __handler 
 {
 	my ($r, $cfg, $dbh) = @_;
-	my ($empty, $base, $repo, $dummy) = split ('/', $r->uri(), 4);
 	my $method = uc($r->method());
 	my $is_method_r = is_read_method ($method);
 
+	#my ($empty, $base, $repo, $dummy) = split ('/', $r->uri(), 4);
+	my @urisegs = split ('/', $r->uri());
+	my $repo = $urisegs[2];
+
 	my $author;
 	my $userid = undef;
 	my $password = undef;