Index: function.c
===================================================================
--- function.c	(revision 77562)
+++ function.c	(working copy)
@@ -1197,6 +1197,8 @@
     return (int)( c->actions->size - 1 );
 }
 
+static void argument_list_print( struct arg_list * args, int num_args );
+
 static JAM_FUNCTION * compile_to_function( compiler * c )
 {
     JAM_FUNCTION * result = BJAM_MALLOC( sizeof(JAM_FUNCTION) );
@@ -1225,6 +1227,14 @@
         result->functions[i].code = function_compile( rule->parse );
         result->functions[i].code->num_formal_arguments = rule->num_arguments;
         result->functions[i].code->formal_arguments = rule->arguments;
+        
+        if ( rule->arguments )
+        {
+            printf( "Compiled argument list for %s: ", object_str( rule->name ) );
+            argument_list_print( rule->arguments, rule->num_arguments );
+            printf( "\n" );
+        }
+
         result->functions[i].local = rule->local;
     }
 
@@ -2593,9 +2603,7 @@
     return (FUNCTION *)result;
 }
 
-static void argument_list_print( struct arg_list * args, int num_args );
 
-
 /* Define delimiters for type check elements in argument lists (and return type
  * specifications, eventually).
  */