---
chicken-status.scm | 3 +--
1 file changed, 1 insertion(+), 2 deletions(-)
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"))))
--
2.18.0
_______________________________________________
Chicken-hackers mailing list
Chicken-hackers@nongnu.org
https://lists.nongnu.org/mailman/listinfo/chicken-hackers
