--- a/stage4/generate_c/generate_c_typedecl.cc	Mon May 30 19:16:22 2011 +0100
+++ b/stage4/generate_c/generate_c_typedecl.cc	Mon May 30 19:24:09 2011 +0100
@@ -421,7 +421,7 @@
 void *visit(simple_type_declaration_c *symbol) {
   TRACE("simple_type_declaration_c");
 
-  s4o_incl.print("__DECLARE_DERIVED_TYPE");
+  s4o_incl.print("__DECLARE_DERIVED_TYPE(");
   symbol->simple_spec_init->accept(*this);
   s4o_incl.print(",");
   symbol->simple_type_name->accept(*basedecl);