From 6e5ea6c223a0335e837ab240643b5797d06ceb0d Mon Sep 17 00:00:00 2001
From: Jacob Matthews <jacobm@cs.uchicago.edu>
Date: Fri, 6 Jan 2006 20:10:37 +0000
Subject: [PATCH] Fixed --remove bug

svn: r1777
---
 collects/planet/util.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/planet/util.ss b/collects/planet/util.ss
index e060acb91a..0da9c6a3a4 100644
--- 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 ()