--- a/stage4/generate_c/search_base_type.cc	Fri Nov 21 13:43:49 2008 +0100
+++ b/stage4/generate_c/search_base_type.cc	Wed Nov 26 09:06:26 2008 +0100
@@ -94,6 +94,7 @@
     void *visit(wstring_type_name_c *symbol)	{return (void *)symbol;}
     void *visit(constant_int_type_name_c *symbol)    {return (void *)symbol;}
     void *visit(constant_real_type_name_c *symbol)    {return (void *)symbol;}
+    void *visit(direct_variable_type_name_c *symbol)    {return (void *)symbol;}
 
 /********************************/
 /* B 1.3.3 - Derived data types */