Index: src/RealCell.cc
===================================================================
--- src/RealCell.cc	(revision 56)
+++ src/RealCell.cc	(working copy)
@@ -75,7 +75,7 @@
 
    if (A->is_complex_cell())
       {
-        A->bif_add(Z, this);
+        new (Z) ComplexCell(A->get_complex_value() * get_complex_value());
       }
    else if (A->is_real_cell())
       {