diff --git a/lazyplay.rkt b/lazyplay.rkt
index 106fd77..7b87416 100755
--- a/lazyplay.rkt
+++ b/lazyplay.rkt
@@ -72,7 +72,7 @@
         (let* ((newfs (new-files played (play-list)))) ; get new list of files
             (play 
                 (append (cdr fnames) newfs) ; append new files to the tail of the list of old files 
-                (update played newfs) ; update the set of played files
+                (update played (map (compose reverse (partial list #f)) newfs)) ; update the set of played files
                 (get-args (thread-try-receive) args)))))) ; check for new arguments from controller
 
 (define (controller player-thread)