diff -r 484beb3b1dcb -r 2c59c2b8fca4 stage4/generate_c/generate_c_st.cc
--- a/stage4/generate_c/generate_c_st.cc	Sat Sep 07 22:08:09 2013 +0100
+++ b/stage4/generate_c/generate_c_st.cc	Wed Dec 18 18:41:05 2013 +0000
@@ -158,8 +158,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(")");