diff --git a/ChangeLog b/ChangeLog
index 54d9622582..05b9815efa 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2008-06-27  David Schleef  <ds@schleef.org>
+
+	* gst/qtdemux/qtdemux.c: Add Dirac stream type
+
 2008-06-27  Mark Nauwelaerts  <mark.nauwelaerts@collabora.co.uk>
 
 	* gst/avi/gstavimux.c: (gst_avi_mux_riff_get_avi_header):
diff --git a/gst/qtdemux/qtdemux.c b/gst/qtdemux/qtdemux.c
index a1dc60976a..c54e1deb26 100644
--- a/gst/qtdemux/qtdemux.c
+++ b/gst/qtdemux/qtdemux.c
@@ -4519,6 +4519,10 @@ qtdemux_video_caps (GstQTDemux * qtdemux, QtDemuxStream * stream,
        * allow 0 sized packets while theora does */
       stream->padding = 1;
       break;
+    case GST_MAKE_FOURCC ('d', 'r', 'a', 'c'):
+      _codec ("Dirac");
+      caps = gst_caps_from_string ("video/x-dirac");
+      break;
     case GST_MAKE_FOURCC ('k', 'p', 'c', 'd'):
     default:
     {