diff --git a/collects/planet/private/planet-shared.ss b/collects/planet/private/planet-shared.ss
index 440dd61786..b6006e1d67 100644
--- a/collects/planet/private/planet-shared.ss
+++ b/collects/planet/private/planet-shared.ss
@@ -184,8 +184,8 @@ Various common pieces of code that both the client and server need to access
               (filter
                (λ (x)
                  (let ((n (assoc-table-row->min x)))
-                   (or (not lo) (>= n lo))
-                   (or (not hi) (<= n hi))))
+                   (and (or (not lo) (>= n lo))
+                        (or (not hi) (<= n hi)))))
                maj-matches))))
       (if (null? in-min-range)
           #f
diff --git a/collects/planet/util.ss b/collects/planet/util.ss
index 91e2d0eb84..b628e2b5b8 100644
--- a/collects/planet/util.ss
+++ b/collects/planet/util.ss
@@ -32,7 +32,7 @@
   ;; get-installed-package : string string nat nat -> PKG | #f
   ;; gets the package associated with this package, if any
   (define (get-installed-package owner name maj min)
-    (lookup-package (make-pkg-spec name maj min min (list owner) #f) (CACHE-DIR)))
+    (lookup-package (make-pkg-spec name maj min min (list owner) #f)))
   
   ;; just so it will be provided
   (define unlink-all remove-all-linkage!)