diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm
index 785f8264..f9e698fc 100644
--- a/lib/chibi/snow/commands.scm
+++ b/lib/chibi/snow/commands.scm
@@ -1294,7 +1294,7 @@
        (list
         (if (file-exists? dir)  ; repository-path should always exist
             dir
-            (make-path (or (conf-get cfg 'install-prefix)) "lib" impl 7)))))
+            (make-path (or (conf-get cfg 'install-prefix)) "lib" impl 8)))))
     ((gauche)
      (list
       (let ((dir (string-trim
@@ -1586,7 +1586,7 @@
    ((conf-get cfg 'install-library-dir))
    ((eq? impl 'chicken)
     (cond ((conf-get cfg 'install-prefix)
-           => (lambda (prefix) (make-path prefix "lib" impl 7)))
+           => (lambda (prefix) (make-path prefix "lib" impl 8)))
           (else
            (car (get-install-dirs impl cfg)))))
    ((conf-get cfg 'install-prefix)
@@ -2197,6 +2197,11 @@
              impl-cfgs)))
     (for-each
      (lambda (impl cfg pkgs)
+       (when (conf-get cfg 'verbose?)
+         (if (pair? pkgs)
+             (info `(installing packages: ,(map package-name pkgs) for ,impl)))
+         (if (pair? package-files)
+             (info `(installing files: ,package-files for ,impl))))
        ;; install by name and dependency
        (install-for-implementation repo impl cfg pkgs)
        ;; install by file
diff --git a/tests/snow/snow-tests.scm b/tests/snow/snow-tests.scm
index 72592d48..a918f195 100644
--- a/tests/snow/snow-tests.scm
+++ b/tests/snow/snow-tests.scm
@@ -41,6 +41,7 @@
 (define chibi-path "./chibi-scheme")
 (define (snow-command . args)
   `("./tools/snow-chibi"
+    --verbose
     --always-no
     --implementations "chibi"
     --chibi-path ,(string-append chibi-path " -A" install-libdir)