diff --git a/audio-player.rkt b/audio-player.rkt
index 710424e..f34cd49 100644
--- a/audio-player.rkt
+++ b/audio-player.rkt
@@ -90,8 +90,8 @@
           (let ((r (car ret)))
             (displayln ret)
             (if (eq? r 'error)
-              (let ((code (cadr ret))
-                    (msg (caddr ret)))
+              (let ((msg (cadr ret))
+                    (code (caddr ret)))
                 (err-sound "Got an error: ~a - ~a" code msg)
                 (make-internal-audio-retval 'error code msg 'error))
               (make-internal-audio-retval 'retval #f #f r))))