===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ftp/fetch.c,v
retrieving revision 1.173
retrieving revision 1.174
diff -c -r1.173 -r1.174
*** src/usr.bin/ftp/fetch.c	2019/10/13 15:07:13	1.173
--- src/usr.bin/ftp/fetch.c	2019/10/13 15:09:26	1.174
***************
*** 1,4 ****
! /*	$OpenBSD: fetch.c,v 1.173 2019/10/13 15:07:13 jca Exp $	*/
  /*	$NetBSD: fetch.c,v 1.14 1997/08/18 10:20:20 lukem Exp $	*/
  
  /*-
--- 1,4 ----
! /*	$OpenBSD: fetch.c,v 1.174 2019/10/13 15:09:26 jca Exp $	*/
  /*	$NetBSD: fetch.c,v 1.14 1997/08/18 10:20:20 lukem Exp $	*/
  
  /*-
***************
*** 945,950 ****
--- 945,951 ----
  			if (verbose)
  				fprintf(ttyout, "Retrying %s\n", origline);
  			retried = 1;
+ 			ftp_close(&fin, &tls, &fd);
  			rval = url_get(origline, proxyenv, savefile, lastfile);
  		}
  		goto cleanup_url_get;