diff --git a/gui-lib/mred/private/wx/win32/sound.rkt b/gui-lib/mred/private/wx/win32/sound.rkt index 51ac372f..a7e53779 100644 --- a/gui-lib/mred/private/wx/win32/sound.rkt +++ b/gui-lib/mred/private/wx/win32/sound.rkt @@ -53,7 +53,7 @@ (call-as-atomic (lambda () (mci-send "open \"~a\" alias ~a" (simplify-path file) id) - (register-finalizer-and-custodian-shutdown + (register-custodian-shutdown id (lambda (id) (mci-send "close ~a" id))