rem: for (net = image->netlist->next; net->next != NULL; net = net->next) {
add: for (net = image->netlist->next; net != NULL; net = net->next) {
context: scm_image2scm(gerb_image_t *image, char *filename){    gerb_net_t *net;    int i,j;    SCM cirseg   = SCM_EOL;    SCM netlist  = SCM_EOL;    SCM aperture = SCM_EOL;    SCM format   = SCM_EOL;    SCM info     = SCM_EOL;        /*     * Convert the netlist      */    for (net = image->netlist->next; net->next != NULL; net = net->next) {	if (net->cirseg)	    cirseg = scm_listify(scm_cons(scm_make_real(net->cirseg->cp_x),					  scm_make_real(net->cirseg->cp_y)),				 scm_cons(scm_make_real(net->cirseg->width),					  scm_make_real(net->cirseg->height)),				 scm_cons(SCM_MAKINUM(net->cirseg->angle1),					  SCM_MAKINUM(net->cirseg->angle2)),				 SCM_UNDEFINED);	else	    cirseg = SCM_EOL;	netlist = scm_cons(scm_listify(scm_cons(scm_make_real(net->start_x), 						scm_make_real(net->start_y)),				       scm_cons(scm_make_real(net->stop_x), 						scm_make_real(net->stop_y)),				       scm_cons(SCM_MAKINUM(net->aperture), 						scm_aperture_state2scm(net->aperture_state)),				       scm_interpolation2scm(net->interpolation),				       cirseg,				       SCM_UNDEFINED),			   netlist);    }        /*     * Convert aperture definitions     */    for (i = 0; i < APERTURE_MAX; i++) {	if (image->aperture[i] != NULL) {	    SCM a = SCM_EOL;	    for (j = image->aperture[i]->nuf_parameters; j != 0; j--)		a = scm_cons(scm_make_real(image->aperture[i]->parameter[j - 1]), a);	    a = scm_cons(scm_aperture2scm(image->aperture[i]->type), a);	    a = scm_cons(SCM_MAKINUM(i), a);	    aperture = scm_cons(a, aperture);	}    }    /*     * Convert format specification     */    if (image->format != NULL) {	format = scm_listify(scm_cons(gh_symbol2scm("omit-zeros\0"),				      scm_omit_zeros2scm(image->format->omit_zeros)),			     scm_cons(gh_symbol2scm("coordinate\0"),				      gh_symbol2scm((image->format->coordinate == ABSOLUTE) ? 						    "absolute" : "incremental")),			     scm_cons(gh_symbol2scm("x-integer\0"), 				      SCM_MAKINUM(image->format->x_int)),			     scm_cons(gh_symbol2scm("x-decimal\0"), 				      SCM_MAKINUM(image->format->x_dec)),			     scm_cons(gh_symbol2scm("y-integer\0"), 				      SCM_MAKINUM(image->format->y_int)),			     scm_cons(gh_symbol2scm("y-decimal\0"), 				      SCM_MAKINUM(image->format->y_dec)),			     SCM_UNDEFINED);    }        /*     * Convert image information      */    if (image->info->polarity == NEGATIVE) 	info = scm_cons(scm_cons(gh_symbol2scm("polarity"),				 gh_symbol2scm("negative")),			info);    else	info = scm_cons(scm_cons(gh_symbol2scm("polarity"),				 gh_symbol2scm("positive")),			info);        info = scm_cons(scm_cons(gh_symbol2scm("unit"),			     gh_symbol2scm((image->info->unit == MM) ? "mm" : "inch")),		    info);        info = scm_cons(scm_cons(gh_symbol2scm("min-x"),			     scm_make_real(image->info->min_x)),		    info);    info = scm_cons(scm_cons(gh_symbol2scm("min-y"),			     scm_make_real(image->info->min_y)),		    info);    info = scm_cons(scm_cons(gh_symbol2scm("max-x"),			     scm_make_real(image->info->max_x)),		    info);    info = scm_cons(scm_cons(gh_symbol2scm("max-y"),			     scm_make_real(image->info->max_y)),		    info);        info = scm_cons(scm_cons(gh_symbol2scm("offset-a"),			     scm_make_real(image->info->offset_a)),		    info);        info = scm_cons(scm_cons(gh_symbol2scm("offset-b"),			     scm_make_real(image->info->offset_b)),		    info);            return scm_listify(netlist, aperture, info, format, 		       scm_makfrom0str(filename), SCM_UNDEFINED);    } /* scm_image2scm */