diff --git a/src/digraphs.c b/src/digraphs.c
index bc971163a..0d2c14680 100644
--- a/src/digraphs.c
+++ b/src/digraphs.c
@@ -75,7 +75,7 @@ Int DigraphNrEdges(Obj digraph) {
   adj = OutNeighbours(digraph);
   nr  = 0;
   for (i = 1; i <= n; i++) {
-    nr += LEN_PLIST(ELM_PLIST(adj, i));
+    nr += LEN_LIST(ELM_PLIST(adj, i));
   }
   AssPRec(digraph, RNamName("DigraphNrEdges"), INTOBJ_INT(nr));
   return nr;