diff --git a/README.md b/README.md
index a3d3438d..82271f63 100644
--- a/README.md
+++ b/README.md
@@ -90,6 +90,7 @@ Release History
 * __v2.3.99 (tbd)__
 
     _Changes_:
+    - Recognize IBM LinuxONE Emperor 4
 
     _Bug fixes_:
 
diff --git a/query_capacity.c b/query_capacity.c
index 3ce168c5..e0cec618 100644
--- a/query_capacity.c
+++ b/query_capacity.c
@@ -554,7 +554,7 @@ static struct qc_mtype mtypes[] = {
 	{3906, "IBM z14",			"IBM LinuxONE Emperor II"},
 	{8561, "IBM z15",			"IBM LinuxONE III"},
 	{8562, "IBM z15 Model T02",		"IBM LinuxONE III Model LT2"},
-	{3931, "IBM z16",			NULL},
+	{3931, "IBM z16",			"IBM LinuxONE Emperor 4"},
 	{0,    NULL,				NULL}
 };