diff --git a/ffmpeg-myth.scm b/ffmpeg-myth.scm
index d3b1932..a10097c 100755
--- a/ffmpeg-myth.scm
+++ b/ffmpeg-myth.scm
@@ -182,10 +182,10 @@
     (define (cl l acc)
       (if (null? l) (reverse acc)
 	  (cond ((end-of-cut? (cdar l))
-		 (cl (cddr l) (append (list (cons (caar l) (caadr l))) acc)))
+		 (cl (cddr l) (if (< (caar l) (caadr l)) (append (list (cons (caar l) (caadr l))) acc) acc)))
 		(#t
 		 (cl (cdr l) acc)))))
-    (if (start-of-cut? (cadar s))
+    (if (and (start-of-cut? (cadar s)) (> (caar s) 0))
 	(set! s (append '((0 0)) s)))
     (if (end-of-cut?   (cadr (last s)))
 	(set! s (append s (list (list (if (null? f) (greatest-fixnum) (caar f)) 1)))))