2 files changed, 4 insertions(+), 1 deletions(-)

M chicken-update.release-info
M chicken-update.scm

@@ 5,3 5,4 @@
 (release "0.1.2")
 (release "0.1.3")
 (release "0.1.4")
+(release "0.1.5")

@@ 61,7 61,9 @@
      titles)))
 
 (define (installed-egg-list)
-  (define (is-egginfo? f) (string=? (pathname-extension f) "egg-info"))
+  (define (is-egginfo? f)
+    (let ((ext (pathname-extension f)))
+      (and ext (string=? (pathname-extension f) "egg-info"))))
   (define (get-egginfo-abspath d)
     (map (cut make-pathname d <> )
          (filter is-egginfo? (directory d))))