Fixed --remove bug

svn: r1777
2006-01-06 20:10:37 +00:00 · 2006-01-06 20:10:37 +00:00 · 6e5ea6c223
commit 6e5ea6c223
parent d929ca1032
1 changed files with 1 additions and 1 deletions
--- a/collects/planet/util.ss
+++ b/collects/planet/util.ss
@ -61,7 +61,7 @@
  ;; remove-infodomain-entries : path -> void
  (define (remove-infodomain-entries path)
    (let* ([pathbytes (path->bytes path)]
-           [cache-file (build-path (find-system-path 'addon-dir) "cache.ss")]
+           [cache-file (build-path (PLANET-DIR) "cache.ss")]
           [cache-lines (with-input-from-file cache-file read)])
      (with-output-to-file cache-file
       (lambda ()