diff --git a/CHANGES b/CHANGES
index 11d0507a0c..882c4ac255 100644
--- a/CHANGES
+++ b/CHANGES
@@ -1,3 +1,7 @@
+4201.	[func]		The default preferred-glue is now the address record
+			type of the transport the query was received
+			over.  [RT #40468]
+
 4200.	[cleanup]	win32: update BINDinstall to be BIND release
 			independent. [RT #38915]
 
diff --git a/bin/named/client.c b/bin/named/client.c
index 64c6180b21..e5c26895cc 100644
--- a/bin/named/client.c
+++ b/bin/named/client.c
@@ -1005,6 +1005,12 @@ client_send(ns_client_t *client) {
 		else if (client->view->preferred_glue == dns_rdatatype_aaaa)
 			preferred_glue = DNS_MESSAGERENDER_PREFER_AAAA;
 	}
+	if (preferred_glue == 0) {
+		if (isc_sockaddr_pf(&client->peeraddr) == AF_INET)
+			preferred_glue = DNS_MESSAGERENDER_PREFER_A;
+		else
+			preferred_glue = DNS_MESSAGERENDER_PREFER_AAAA;
+	}
 
 #ifdef ALLOW_FILTER_AAAA
 	/*
diff --git a/doc/arm/Bv9ARM-book.xml b/doc/arm/Bv9ARM-book.xml
index 9686827f35..574fadc1da 100644
--- a/doc/arm/Bv9ARM-book.xml
+++ b/doc/arm/Bv9ARM-book.xml
@@ -5538,7 +5538,9 @@ badresp:1,adberr:0,findfail:0,valfail:0]
 		If specified, the listed type (A or AAAA) will be emitted
 		before other glue
 		in the additional section of a query response.
-		The default is not to prefer any type (NONE).
+		The default is to prefer A records when responding
+		to queries that arrived via IPv4 and AAAA when
+		responding to queries that arrived via IPv6.
 	      </para>
 	    </listitem>
 	  </varlistentry>
diff --git a/doc/arm/notes.xml b/doc/arm/notes.xml
index 0718a4c353..c8c21606f7 100644
--- a/doc/arm/notes.xml
+++ b/doc/arm/notes.xml
@@ -610,6 +610,12 @@
 	  using the <option>log</option> clause.
 	</para>
       </listitem>
+      <listitem>
+	<para>
+	  The default preferred glue is now the address type of the
+	   transport the query was received over.
+	</para>
+      </listitem>
     </itemizedlist>
   </sect2>
   <sect2 id="relnotes_port">