diff --git a/bin/testcgibin b/bin/testcgibin
index 3e21ee1a..73b260cc 100755
--- a/bin/testcgibin
+++ b/bin/testcgibin
@@ -7,7 +7,9 @@ use autodie qw(:all);
 use FindBin qw($Bin);
 use lib "$Bin/../lib";
 
-$ENV{'root_dir'} = "$Bin/..";
+my $path = $Bin;
+$path =~ s/^(.+)\/.+/$1/;	# Remove the final directory, probably "/bin"
+$ENV{'root_dir'} = $path;
 
 eval {
 	my $testnumber = $ARGV[0];