diff --git a/libflac-ffi.rkt b/libflac-ffi.rkt
index 6fe0fca..b78cb88 100644
--- a/libflac-ffi.rkt
+++ b/libflac-ffi.rkt
@@ -413,6 +413,9 @@
 (define-libflac FLAC__stream_decoder_delete
   (_fun _FLAC__StreamDecoder-pointer -> _void))
 
+(define-libflac FLAC_stream_decoder_finish
+  (_fun _FLAC__StreamDecoder-pointer -> _int))
+
 (define-libflac FLAC__stream_decoder_get_state
   (_fun _FLAC__StreamDecoder-pointer -> _int))
 
@@ -566,6 +569,7 @@
     (if (eq? fl #f)
         (error "flac handler has already been deleted")
         (begin
+          (FLAC__stream_decoder_finish fl)
           (FLAC__stream_decoder_delete fl)
           (set! fl #f)))
     )