--- a/stage4/generate_c/generate_c_st.cc	Wed Mar 19 12:13:43 2014 +0000
+++ b/stage4/generate_c/generate_c_st.cc	Sat Mar 29 22:46:09 2014 +0000
@@ -213,6 +213,7 @@
   else
     wanted_variablegeneration = assignment_vg;
   
+/*
   symbol->accept(*this);
   s4o.print(",");
   wanted_variablegeneration = expression_vg;
@@ -225,6 +226,19 @@
   s4o.print(")");
   wanted_variablegeneration = expression_vg;
   return NULL;
+*/
+  symbol->accept(*this);
+  s4o.print(",");
+  if (type_is_complex) {
+    wanted_variablegeneration = complextype_suffix_vg;
+    symbol->accept(*this);
+  }
+  s4o.print(",");
+  wanted_variablegeneration = expression_vg;
+  print_check_function(type, value, fb_value);
+  s4o.print(")");
+  wanted_variablegeneration = expression_vg;
+  return NULL;
 }
 
 /********************************/