diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm
index b21a0d4e..05a06f33 100644
--- a/lib/chibi/snow/commands.scm
+++ b/lib/chibi/snow/commands.scm
@@ -906,7 +906,10 @@
                    (package-libraries pkg))))
              (install-package-meta-info
               impl cfg
-              `(,@pkg (installed-files ,@installed-files)))))))))))
+              `(,@(remove (lambda (x)
+                            (and (pair? x) (eq? 'installed-files (car x))))
+                          pkg)
+                (installed-files ,@installed-files)))))))))))
 
 (define (install-for-implementation repo impl cfg pkgs)
   (for-each (lambda (pkg) (install-package repo impl cfg pkg)) pkgs))
diff --git a/lib/chibi/snow/package.scm b/lib/chibi/snow/package.scm
index 0750ca09..7b0ddb74 100644
--- a/lib/chibi/snow/package.scm
+++ b/lib/chibi/snow/package.scm
@@ -201,14 +201,6 @@
    (else (map (lambda (x) (or (string->number x) (string->symbol x)))
               (string-split str #\.)))))
 
-(define (library-name->path name)
-  (and (pair? name)
-       (let lp ((ls (cdr name)) (res (list (car name))))
-         (if (null? ls)
-             (apply string-append
-                    (map display-to-string (reverse (cons ".sld" res))))
-             (lp (cdr ls) (cons (car ls) (cons "/" res)))))))
-
 (define (check-cond-expand config test)
   (define (library-installed? config name)
     ;; assume it could be installed for now