diff --git a/ACU/Grading.pm b/ACU/Grading.pm
index d27d480..479258f 100644
--- a/ACU/Grading.pm
+++ b/ACU/Grading.pm
@@ -352,7 +352,7 @@ sub compute ($$$;$$$)
 	    {
 		my $value = 0;
 		for my $r (grep { match_glob($ref, $_); } keys %$ids) {
-		    $value += $ids->{ $r };
+		    $value += $ids->{ $r } if ($ref != $r);
 		}
 		$ids->{ $ref } = $value if ($value);
 		log DEBUG, "New globbing identifier caculated $ref: $value";
diff --git a/commands/project/create.pl b/commands/project/create.pl
index 8407a7e..6dd50c9 100644
--- a/commands/project/create.pl
+++ b/commands/project/create.pl
@@ -4,15 +4,13 @@ use v5.10.1;
 use strict;
 use warnings;
 
-use lib "../../";
-
 use ACU::API::Base;
 use ACU::API::Projects;
 
 
 if ($#ARGV == 0)
 {
-    API::Projects::add($ARGV[0]);
+    API::Projects::add($ARGV[0], "");
 }
 else
 {