diff --git a/ACU/Grading.pm b/ACU/Grading.pm
index f473289..d27d480 100644
--- a/ACU/Grading.pm
+++ b/ACU/Grading.pm
@@ -355,6 +355,7 @@ sub compute ($$$;$$$)
 		    $value += $ids->{ $r };
 		}
 		$ids->{ $ref } = $value if ($value);
+		log DEBUG, "New globbing identifier caculated $ref: $value";
 	    }
 	};
 	if ($@) {