*** g-wrap-1.9.8/guile/g-wrap/guile-runtime.c	Tue Jul  3 20:12:31 2007
--- g-wrap-1.9.8/guile/g-wrap/guile-runtime.c.~1~	Fri Apr 13 22:58:36 2007
***************
*** 681,698 ****
      for (i = 0, args = arg_list;
  	 i < fi->n_req_args;
  	 i++, args = SCM_CDR (args))
        {
! 	if (fi->arg_typespecs[i] & GW_TYPESPEC_AGGREGATED) {
! 	  /* FIXED -- SCM_CAR on args -- not arg_list */
! 	  SCM arg = SCM_CAR(args);
  	  /* Add this argument to the list of dependencies (aggregated
  	     objects) of the return value.  */
! 	  /* FIXED -- Do not want to add as a dependency in case of NULL
! 	     pointer (null-ok) -- if that happens application crashes */
! 	  if (SCM_NFALSEP(arg))
! 	    deps = scm_cons (arg, deps);
! 	}
        }
  
      if (deps != SCM_EOL)
        {
--- 681,692 ----
      for (i = 0, args = arg_list;
  	 i < fi->n_req_args;
  	 i++, args = SCM_CDR (args))
        {
! 	if (fi->arg_typespecs[i] & GW_TYPESPEC_AGGREGATED)
  	  /* Add this argument to the list of dependencies (aggregated
  	     objects) of the return value.  */
! 	  deps = scm_cons (SCM_CAR (arg_list), deps);
        }
  
      if (deps != SCM_EOL)
        {