better printout

svn: r2998
2006-05-21 10:28:43 +00:00 · 2006-05-21 10:28:43 +00:00 · bffb3c0f92
commit bffb3c0f92
parent 9960d6f270
1 changed files with 2 additions and 2 deletions
--- a/collects/setup/winvers-change.ss
+++ b/collects/setup/winvers-change.ss
@ -75,8 +75,8 @@
                      (cond [(regexp-match-positions subst i) =>
                             (lambda (m)
                               (when print?
-                                 (printf "Changing: ~a/~a\n"
-                                         (current-directory) file)
+                                 (printf "Changing: ~a\n"
+                                         (build-path (current-directory) file))
                                 (set! print? #f))
                               (file-position o (+ pos (caadr m)))
                               (display version-bytes o)