diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index 60e3339..f8798ff 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -281,7 +281,7 @@
 	 (concat (simple-format #f "concat=n=~a:v=1:a=~a [out0]" n (length aidx)))
 	 (mappings (lambda (i) (simple-format #f "-map '[out~a]'" i))))
     (string-join (append (list "'") (iter scale-flt rtn 0 '()) (iter av-ptr rtn 0 '()) (list concat) (iter out-ptr aidx 1 '()) (list "' ") (iter mappings (cons 0 aidx) 0 '())))))
-(define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #f))
+(define* (ffmpeg-split+scale+transcode-recording rec #:optional (scale? #t))
   (let* ((basename (recording-basename rec))
 	 (rootname+ext (string-split basename #\.))
 	 (rootname (car rootname+ext))