diff --git a/read_values.c b/read_values.c
index e3674c9..9c39748 100644
--- a/read_values.c
+++ b/read_values.c
@@ -76,7 +76,8 @@ struct machinetype {
 	{ QC_TYPE_FAMILY_LINUXONE, "8561", "8561 = IBM LinuxONE III LT1" },
 	{ QC_TYPE_FAMILY_IBMZ,	   "8562", "8562 = z15 T02 IBM z15 T02" },
 	{ QC_TYPE_FAMILY_LINUXONE, "8562", "8562 = IBM LinuxONE III LT2" },
-	{ QC_TYPE_FAMILY_IBMZ,	   "3931", "3931 = z16     IBM z16" },
+	{ QC_TYPE_FAMILY_IBMZ,     "3931", "3931 = z16     IBM z16 A01" },
+	{ QC_TYPE_FAMILY_LINUXONE, "3931", "3931 = IBM LinuxONE Emperor 4" },
 	};
 
 int	debug = 0;
diff --git a/s390-tools.changes b/s390-tools.changes
index 93dc8a6..6c022ad 100644
--- a/s390-tools.changes
+++ b/s390-tools.changes
@@ -1,3 +1,9 @@
+-------------------------------------------------------------------
+Wed Jan 11 15:39:38 UTC 2023 - Nikolay Gueorguiev <nikolay.gueorguiev@suse.com>
+
+- Updated read_values.c for z16 machine type (bsc#1206832)
+  * Added the IBM LinuxONE Emperor 4 machine type
+
 -------------------------------------------------------------------
 Tue Jan 10 08:22:05 UTC 2023 - Nikolay Gueorguiev <nikolay.gueorguiev@suse.com>