filename cleaning

private/file-walker.rkt

@@ -45,10 +45,10 @@
 
               (unless (string=? bn nbn)
                 (with-handlers ([exn? (λ (e)
-                                         (warn-am "Cannot rename dirty filename: ~a" nbn))])
+                                         (warn-am "Cannot rename dirty filename: ~a, ~a" nbn e))])
-                  (info-am "Renaming ~a to ~a" bn nbn)
+                  (info-am "Renaming ~a to ~a (basedir: ~a)" bn nbn bd)
                   (rename-file-or-directory (build-path bd bn)
-                                            (build-path bn nbn) #f)
+                                            (build-path bd nbn) #f)
                   (set! path (build-path bd nbn))
                   ))
               
@@ -256,4 +256,4 @@
                   ((string=? stem3 "") "_")
                   (reserved? (string-append "_" stem3))
                   (else stem3))))
-    (string-append stem4 ext)))
+    (string-append stem4 ext)))