diff --git a/lib/modules/Concurrent.pmod b/lib/modules/Concurrent.pmod
index fc59be8116ba81fa78b05ae9981d588725fc538c..dfd4b9526396797ceaeba84185dbf9fec51d7361 100644
--- a/lib/modules/Concurrent.pmod
+++ b/lib/modules/Concurrent.pmod
@@ -715,7 +715,7 @@ class AggregateState
   final function(mixed, mixed, mixed ... : mixed) fold_fun;
   final array(mixed) extra;
 
-  private void create(Promise p)
+  protected void create(Promise p)
   {
     if (p->_materialised || p->_materialised++)
       error("Cannot materialise a Promise more than once.\n");