===================================================================
RCS file: /cvsrepo/anoncvs/cvs/src/usr.bin/ftp/fetch.c,v
retrieving revision 1.173
retrieving revision 1.174
diff -u -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 +1,4 @@
-/*	$OpenBSD: fetch.c,v 1.173 2019/10/13 15:07:13 jca Exp $	*/
+/*	$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,6 +945,7 @@
 			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;