--- a/stage4/generate_c/generate_c_inlinefcall.cc	Thu Mar 20 17:27:29 2014 +0100
+++ b/stage4/generate_c/generate_c_inlinefcall.cc	Wed May 28 11:32:09 2014 +0200
@@ -281,7 +281,7 @@
       else
         s4o.print(SET_VAR);
       s4o.print("(,");
-
+/*
       wanted_variablegeneration = complextype_base_vg;
       symbol->accept(*this);
       s4o.print(",");
@@ -295,6 +295,20 @@
       s4o.print(")");
       wanted_variablegeneration = expression_vg;
       return NULL;
+*/
+      wanted_variablegeneration = complextype_base_vg;
+      symbol->accept(*this);
+      s4o.print(",");
+      if (analyse_variable_c::contains_complex_type(symbol)) {
+        wanted_variablegeneration = complextype_suffix_vg;
+        symbol->accept(*this);
+      }
+      s4o.print(",");
+      wanted_variablegeneration = expression_vg;
+      print_check_function(type, value, NULL, true);
+      s4o.print(")");
+      wanted_variablegeneration = expression_vg;
+      return NULL;
     }
 
     /*********************/