diff --git a/ras-mce-handler.c b/ras-mce-handler.c
index c9e8687..0f09132 100644
--- a/ras-mce-handler.c
+++ b/ras-mce-handler.c
@@ -375,6 +375,9 @@ static void report_mce_event(struct ras_events *ras,
 	if (e->ppin)
 		trace_seq_printf(s, ", ppin= %llx", (long long)e->ppin);
 
+	if (e->microcode)
+		trace_seq_printf(s, ", microcode= %x", e->microcode);
+
 	if (!e->vdata_len)
 		return;
 
@@ -573,6 +576,10 @@ int ras_mce_event_handler(struct trace_seq *s,
 	if (!tep_get_field_val(s, event, "ppin", record, &val, 1))
 		e.ppin = val;
 
+	/* Get Microcode Revision */
+	if (!tep_get_field_val(s, event, "microcode", record, &val, 1))
+		e.microcode = val;
+
 	/* Get Vendor-specfic Data, if any */
 	e.vdata = tep_get_field_raw(s, event, "v_data", record, &e.vdata_len, 1);
 
diff --git a/ras-mce-handler.h b/ras-mce-handler.h
index f3003d2..b8ae389 100644
--- a/ras-mce-handler.h
+++ b/ras-mce-handler.h
@@ -76,6 +76,7 @@ struct mce_event {
 	uint64_t        synd;   /* MCA_SYND MSR: only valid on SMCA systems */
 	uint64_t        ipid;   /* MCA_IPID MSR: only valid on SMCA systems */
 	uint64_t 	ppin;
+	uint32_t	microcode;
 	int32_t		vdata_len;
 	const uint64_t	*vdata;
 
diff --git a/ras-record.c b/ras-record.c
index 327d6ba..56c25cb 100644
--- a/ras-record.c
+++ b/ras-record.c
@@ -338,11 +338,12 @@ static const struct db_fields mce_record_fields[] = {
 		{ .name = "cs",			.type = "INTEGER" }, // 15
 		{ .name = "bank",			.type = "INTEGER" },
 		{ .name = "cpuvendor",		.type = "INTEGER" },
+		{ .name = "microcode",      .type = "INTEGER" },
 
 		/* Parsed data - will likely change */
 		{ .name = "bank_name",		.type = "TEXT" },
-		{ .name = "error_msg",		.type = "TEXT" },
-		{ .name = "mcgstatus_msg",	.type = "TEXT" },// 20
+		{ .name = "error_msg",		.type = "TEXT" }, // 20
+		{ .name = "mcgstatus_msg",	.type = "TEXT" },
 		{ .name = "mcistatus_msg",	.type = "TEXT" },
 		{ .name = "mcastatus_msg",	.type = "TEXT" },
 		{ .name = "user_action",		.type = "TEXT" },
@@ -381,14 +382,15 @@ int ras_store_mce_record(struct ras_events *ras, struct mce_event *ev)
 	sqlite3_bind_int   (priv->stmt_mce_record, 15, ev->cs);
 	sqlite3_bind_int   (priv->stmt_mce_record, 16, ev->bank);
 	sqlite3_bind_int   (priv->stmt_mce_record, 17, ev->cpuvendor);
-
-	sqlite3_bind_text(priv->stmt_mce_record, 18, ev->bank_name, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 19, ev->error_msg, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 20, ev->mcgstatus_msg, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 21, ev->mcistatus_msg, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 22, ev->mcastatus_msg, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 23, ev->user_action, -1, NULL);
-	sqlite3_bind_text(priv->stmt_mce_record, 24, ev->mc_location, -1, NULL);
+	sqlite3_bind_int   (priv->stmt_mce_record, 18, ev->microcode);
+
+	sqlite3_bind_text(priv->stmt_mce_record, 19, ev->bank_name, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 20, ev->error_msg, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 21, ev->mcgstatus_msg, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 22, ev->mcistatus_msg, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 23, ev->mcastatus_msg, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 24, ev->user_action, -1, NULL);
+	sqlite3_bind_text(priv->stmt_mce_record, 25, ev->mc_location, -1, NULL);
 
 	rc = sqlite3_step(priv->stmt_mce_record);
 	if (rc != SQLITE_OK && rc != SQLITE_DONE)
diff --git a/util/ras-mc-ctl.in b/util/ras-mc-ctl.in
index fdbcd62..f9328b2 100755
--- a/util/ras-mc-ctl.in
+++ b/util/ras-mc-ctl.in
@@ -1743,7 +1743,7 @@ sub errors
 {
     require DBI;
     my ($query, $query_handle, $id, $time, $devname, $count, $type, $msg, $label, $mc, $top, $mid, $low, $addr, $grain, $syndrome, $detail, $out);
-    my ($mcgcap,$mcgstatus, $status, $misc, $ip, $tsc, $walltime, $ppin, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $bank_name, $mcgstatus_msg, $mcistatus_msg, $mcastatus_msg, $user_action, $mc_location);
+    my ($mcgcap,$mcgstatus, $status, $misc, $ip, $tsc, $walltime, $ppin, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $microcode, $bank_name, $mcgstatus_msg, $mcistatus_msg, $mcastatus_msg, $user_action, $mc_location);
     my ($timestamp, $etype, $severity, $etype_string, $severity_string, $fru_id, $fru_text, $cper_data);
     my ($bus_name, $dev_name, $driver_name, $reporter_name);
     my ($dev, $sector, $nr_sector, $error, $rwbs, $cmd);
@@ -2192,10 +2192,10 @@ sub errors
 
     # MCE mce_record errors
     if ($has_mce == 1) {
-        $query = "select id, timestamp, mcgcap, mcgstatus, status, addr, misc, ip, tsc, walltime, ppin, cpu, cpuid, apicid, socketid, cs, bank, cpuvendor, bank_name, error_msg, mcgstatus_msg, mcistatus_msg, mcastatus_msg, user_action, mc_location from mce_record$conf{opt}{since} order by id";
+        $query = "select id, timestamp, mcgcap, mcgstatus, status, addr, misc, ip, tsc, walltime, ppin, cpu, cpuid, apicid, socketid, cs, bank, cpuvendor, microcode, bank_name, error_msg, mcgstatus_msg, mcistatus_msg, mcastatus_msg, user_action, mc_location from mce_record$conf{opt}{since} order by id";
         $query_handle = $dbh->prepare($query);
         $query_handle->execute();
-        $query_handle->bind_columns(\($id, $time, $mcgcap,$mcgstatus, $status, $addr, $misc, $ip, $tsc, $walltime, $ppin, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $bank_name, $msg, $mcgstatus_msg, $mcistatus_msg, $mcastatus_msg, $user_action, $mc_location));
+        $query_handle->bind_columns(\($id, $time, $mcgcap,$mcgstatus, $status, $addr, $misc, $ip, $tsc, $walltime, $ppin, $cpu, $cpuid, $apicid, $socketid, $cs, $bank, $cpuvendor, $microcode, $bank_name, $msg, $mcgstatus_msg, $mcistatus_msg, $mcastatus_msg, $user_action, $mc_location));
         $out = "";
         while($query_handle->fetch()) {
             $out .= "$id $time error: $msg";
@@ -2221,6 +2221,7 @@ sub errors
 	    $out .= sprintf ", socketid=0x%08x", $socketid if ($socketid);
 	    $out .= sprintf ", cs=0x%08x", $cs if ($cs);
 	    $out .= sprintf ", bank=0x%08x", $bank if ($bank);
+		$out .= sprintf ", microcode=0x%08x", $microcode if ($microcode);
 
 	    $out .= "\n";
         }