diff --git a/db/Node.pm.in b/db/Node.pm.in
index 409c85dcdedfabea5ba58c3927a252fd5dce0ecc..e5b1b048a9097a21b807dd17b2321f43df698049 100644
--- a/db/Node.pm.in
+++ b/db/Node.pm.in
@@ -395,6 +395,14 @@ sub NodeAllocCheck($$)
     return 0;
 }
 
+# Naming confusion.
+sub AllocCheck($$)
+{
+    my ($self, $pid) = @_;
+
+    return $self->NodeAllocCheck($pid);
+}
+
 #
 # Equality test for two experiments.
 # Not strictly necessary in perl, but good form.