diff --git a/ChangeLog b/ChangeLog
index 2e39e1301..be1544c35 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,8 @@
 2003-06-22  Moritz Bunkus  <moritz@bunkus.org>
 
+        * Added 'ReferencePriority' element to the known elements for
+        mkvinfo.
+
         * Removed "(mkvinfo) " from mkvinfo's output in order to improve
         readability and save space.
 
diff --git a/mkvinfo.cpp b/mkvinfo.cpp
index 943069fee..3e3dd4552 100644
--- a/mkvinfo.cpp
+++ b/mkvinfo.cpp
@@ -839,6 +839,14 @@ bool process_file(const char *file_name) {
                 show_element(l3, 3, "Reference block: %.3fms", 
                              ((float)int64(reference)) * tc_scale / 1000000.0);
 
+              } else if (EbmlId(*l3) ==
+                         KaxReferencePriority::ClassInfos.GlobalId) {
+                KaxReferencePriority &priority =
+                  *static_cast<KaxReferencePriority *>(l3);
+                priority.ReadData(es->I_O());
+                show_element(l3, 3, "Reference priority: %u",
+                             uint32(priority));
+
               } else if (!is_ebmlvoid(l3, 3))
                 show_unknown_element(l3, 3);