~ chicken-core (chicken-5) bb6bf66b4bb6c16fedaf0aea55e965f9497f2885

commit bb6bf66b4bb6c16fedaf0aea55e965f9497f2885
Author:     Kooda <kooda@upyum.com>
AuthorDate: Mon Aug 20 03:20:00 2018 +0200
Commit:     Kooda <kooda@upyum.com>
CommitDate: Mon Aug 20 03:20:00 2018 +0200

    Fix my mistake in the previous commit

diff --git a/egg-compile.scm b/egg-compile.scm
index 8e338541..2722dce6 100644
--- a/egg-compile.scm
+++ b/egg-compile.scm
@@ -922,7 +922,7 @@ EOF
 
 (define (quotearg str)
   (let* ((str (->string str))
-         (lst (string->list (->string str))))
+         (lst (string->list str)))
     (if (any char-whitespace? lst)
         (string-append "\"" str "\"")
         str)))