dimension in dirac gamma contractions was miscalculated

diff --git a/ginac/clifford.cpp b/ginac/clifford.cpp
index ab3ec9529796c956f1cdccc3b2c50ab6f1cdeebd..f1c710d5ac009c57d644a7b968c9ed8054b3a636 100644 (file)
--- a/ginac/clifford.cpp
+++ b/ginac/clifford.cpp
@@ -212,7 +212,7 @@ bool diracgamma::contract_with(exvector::iterator self, exvector::iterator other
 
        ex dim = ex_to<idx>(self->op(1)).get_dim();
        if (other->nops() > 1)
-               dim = minimal_dim(dim, ex_to<idx>(self->op(1)).get_dim());
+               dim = minimal_dim(dim, ex_to<idx>(other->op(1)).get_dim());
 
        if (is_a<clifford>(*other)) {