diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index 77f9ebb..3e05a52 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -255,8 +255,9 @@
     (make-recording chanid starttime rec-tbl strms-inf i-frm-nfo rtn-lst)))
 
 (define (re-create-record-data r-d)
-  (let ((lookup (lambda (key) (assv-ref r-d key))))
-    (apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list)))))
+  (if (recording? r-d) r-d
+    (let ((lookup (lambda (key) (assv-ref r-d key))))
+      (apply make-recording (map lookup '(chanid starttime recorded-table streams-info i-frame-info retain-list))))))
 
 (define recording-file-endings3 '("mpg" "mp4" "mkv"))
 (define recording-file-endings2 '("ts"))