diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index c97c394..623442d 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -115,6 +115,8 @@
   (dsv-splitter (delete "" (dsv-splitter s #\newline)) ffprobe-separator))
 (define (k-v-parser s)
   (read-from-string (dsv-splitter s #\=)))
+(define (map-cons l)
+  (apply (lambda(x y) (map cons x y)) l))
 (define (make-dotted-alist s)
   (cond ((and (list? s) (= 2 (length s)) (symbol? (car s)))
 	 (cons (car s) (cadr s)))