~ chicken-core (chicken-5) 3a2812534eae72602d7247ff2a27e326c4a220c7

commit 3a2812534eae72602d7247ff2a27e326c4a220c7
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Jul 27 18:03:36 2018 +0200
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Jul 27 18:04:12 2018 +0200

    chicken-status doesn’t find the version of eggs in the cache when
    using the `-cached` option
    
    (Submtted by Kooda)
    
    Signed-off-by: felix <felix@call-with-current-continuation.org>

diff --git a/chicken-status.scm b/chicken-status.scm
index 565ddd4a..7a0a9b2d 100644
--- a/chicken-status.scm
+++ b/chicken-status.scm
@@ -115,8 +115,7 @@
     (let ((version
 	    (cond ((get-egg-property (read-info egg dir ext)
 				     'version))
-		  ((file-exists? (make-pathname (list dir egg)
-						+version-file+))
+		  ((file-exists? (make-pathname dir +version-file+))
 		   => (lambda (fname)
 			(with-input-from-file fname read)))
 		  (else "unknown"))))