diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index 04b2292..7bca51b 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -434,7 +434,7 @@
     (map rebuild '(skiplist cutlist))))
 
 (define* (mythconverg-pending-jobs #:optional (days 7))
-  (let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day;" days))))
+  (let ((basenames (mythconverg-execute+parse (simple-format #f "select basename from recorded where cutlist=1 and lastmodified>=now() - interval ~a day and not(recgroup = 'Deleted');" days))))
     (define (parse-basename bn)
       (read-from-string (string-split (car (string-split (car bn) #\.)) #\_)))
     (cond ((null? basenames)