--- a/stage4/generate_c/generate_c_il.cc	Sat Sep 07 22:08:09 2013 +0100
+++ b/stage4/generate_c/generate_c_il.cc	Wed Dec 18 18:41:05 2013 +0000
@@ -394,8 +394,7 @@
       variablegeneration_t old_wanted_variablegeneration = wanted_variablegeneration;
       wanted_variablegeneration = complextype_base_vg;
       symbol->accept(*this);
-      if (search_var_instance_decl->type_is_complex(symbol))
-        s4o.print(",");
+      s4o.print(",");
       wanted_variablegeneration = complextype_suffix_vg;
       symbol->accept(*this);
       s4o.print(")");