diff --git a/flac-decoder.rkt b/flac-decoder.rkt
index 71be950..8ff7a90 100644
--- a/flac-decoder.rkt
+++ b/flac-decoder.rkt
@@ -83,6 +83,7 @@
                                  (hash-ref mh 'sample-rate)))))
                (hash-set! mh 'duration duration))
              (set-flac-handle-stream-info! handle si)
+             (hash-set! mh 'audio-bits-per-sample (hash-ref mh 'bits-per-sample))
              (hash-set! mh 'bits-per-sample 32)  ; Flac works internally 32 bits.
              (let ((cb (flac-handle-cb-stream-info handle)))
                (when (procedure? cb)