Somewhat more debugging info.

audio-player.rkt

@@ -80,8 +80,14 @@
   (if (list? ret)
       (if (null? ret)
           (error (format "audio-player: no return value in ~a" ret))
-          (car ret))
+          (let ((r (car ret)))
-      ret))
+            (when (eq? r 'error)
+              (err-sound "Got an error: ~a" ret))
+            (car ret)))
+      (begin
+        (when(eq? ret 'error)
+          (err-sound "Got an error: ~a" ret))
+        ret)))
 
 (define (is-event? evt sym)
   (is-return? evt sym))
@@ -253,7 +259,9 @@
   (->  audio-play? path-string? number?)
   (let ((result ((audio-play-rpc handle) 'open audio-file)))
     (when (eq? result 'error)
-        (error "Got an error from the placed audio player"))
+      (err-sound "audio-play!: error for file ~a" audio-file)
+      (error "Got an error from the placed audio player")
+      )
     (cadr result)))
 
 (define/contract (audio-pause! handle paused)