diff --git a/private/file-walker.rkt b/private/file-walker.rkt
index a06184f..573e339 100644
--- a/private/file-walker.rkt
+++ b/private/file-walker.rkt
@@ -46,11 +46,10 @@
               (unless (string=? bn nbn)
                 (with-handlers ([exn? (λ (e)
                                          (warn-am "Cannot rename dirty filename: ~a" nbn))])
-                  (display "bn = ") (write bn) (display ", nbn = ") (write nbn)
-                  (newline)
-                  ;(rename-file-or-directory (build-path bd bn)
-                  ;                          (build-path bn nbn) #f)
-                  ;(set! path (build-path bd nbn))
+                  (info-am "Renaming ~a to ~a" bn nbn)
+                  (rename-file-or-directory (build-path bd bn)
+                                            (build-path bn nbn) #f)
+                  (set! path (build-path bd nbn))
                   ))
               
               (let* ((str-path (path->string path))