--- a/Complex.st	Wed Nov 20 16:43:37 2019 +0100
+++ b/Complex.st	Wed Nov 20 18:24:20 2019 +0100
@@ -701,6 +701,11 @@
     i  := (real * v) + (imaginary * u).
     i = 0 ifTrue:[ ^ r ].
     ^ self class real:r imaginary:i
+
+    "
+     (4 + 3i) * (2 + 5i) -> (-7+26i)
+     (3 + 2i) * (2 + 1i) -> (4+7i)
+    "
 !
 
 productFromFixedPoint: aFixedPoint