diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index 76a4991..a072b4b 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -482,7 +482,7 @@
 	   '())
 	  (#t
 	   (simple-format #t "myth-clean-recording-directory: removing transcoded files\n~a\n" (string-join expired-recordings ","))
-	   (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory "/" s))) expired-recordings) " "))))
+	   (let ((cmd (simple-format #f "~a ~a" shell-cmd (string-join (map (lambda(s) (string-concatenate (list recordings-directory "/" s "*"))) expired-recordings) " "))))
 	     (catch 'error-in-shell-command-to-string
 	       ;; thunk - return expired-recordings list
 	       (lambda ()