diff --git a/doc/Changelog b/doc/Changelog
index 9903ec89f..5d3bc17b0 100644
--- a/doc/Changelog
+++ b/doc/Changelog
@@ -1,6 +1,9 @@
 28 June 2022: George
 	- Show the output of the exact .rpl run that failed with 'make test'.
 
+28 June 2022: Wouter
+	- Fix test program dohclient close to use portability routine.
+
 23 June 2022: Tom
 	- Clarify -v flag manpage entry (#705)
 
diff --git a/testcode/dohclient.c b/testcode/dohclient.c
index d35f5a82c..82e522f90 100644
--- a/testcode/dohclient.c
+++ b/testcode/dohclient.c
@@ -551,7 +551,7 @@ run(struct http2_session* h2_session, int port, int no_tls, int count, char** q)
 	if(ctx) {
 		SSL_CTX_free(ctx);
 	}
-	close(fd);
+	sock_close(fd);
 }
 
 /** getopt global, in case header files fail to declare it. */