diff --git a/myth-clean-recordings.sh b/myth-clean-recordings.sh
index feeaff8..2f69157 100755
--- a/myth-clean-recordings.sh
+++ b/myth-clean-recordings.sh
@@ -1,20 +1,6 @@
 #!/bin/bash
 set -aex
-recordingsdir=${recordingsdir:-"/var/lib/mythtv/recordings/"}
-rm=${rm:-"/bin/rm -f"}
-cutoff=$(date --date='-2 weeks' +%s)
-echo cutoff is $cutoff 
 
-cd "$recordingsdir"
-cleanables=$(for f in *mkv; do ls ${f/.mkv/}.{ts,mpg,ts.png,mpg.png} 2>/dev/null; done | sed 's/\n/ /g;')
+/usr/local/bin/ffmpeg-myth.scm myth-clean-recordings-update-deleted-ltbtranscodedtobedeleted # 1 '"echo "' '(lambda(x) x)'
+exit 0
 
-d=0
-for f in ${cleanables}; do
-    Z=$(stat --format="%Z" $f)
-    if test $Z -lt $cutoff; then
-	$rm $f
-	d=$((d+1))
-    fi
-done
-
-echo Deleted $d files. Done.