diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index b5c3afc..ebed68d 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -284,7 +284,7 @@
 (define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f))
   (let* ((basename (recording-basename rec))
 	 (rootname+ext (string-split basename #\.))
-	 (rootname (car rootname+ext)) (ext (cadr rootname+ext))
+	 (rootname (car rootname+ext))
 	 (in-file (simple-format #f "~a/~a" recordings-directory basename))
 	 (out-file (simple-format #f "~a/~a.~a" working-directory rootname transcoded-file-ending))
 	 (m-d (mythtv-recorded-table->metadata rec))