diff --git a/libflac/flac-decoder.rkt b/libflac/flac-decoder.rkt
index f0022c8..ad2cdac 100644
--- a/libflac/flac-decoder.rkt
+++ b/libflac/flac-decoder.rkt
@@ -136,9 +136,13 @@
           #f)))
 
   (define (flac-stop handle)
-    (set-flac-handle-stop-reading! handle #t)
-    (while (flac-handle-reading handle)
-           (sleep 0.01))
+    (let ((ct (current-milliseconds)))
+      (set-flac-handle-stop-reading! handle #t)
+      (while (flac-handle-reading handle)
+             (sleep 0.01))
+      (let ((ct* (current-milliseconds)))
+        (displayln (format "flac-stop took: ~a ms" (- ct* ct))))
+      )
     )
                          
   ); end of module