diff --git a/lib/chibi/snow/commands.scm b/lib/chibi/snow/commands.scm index 61487730..30d1fd1d 100644 --- a/lib/chibi/snow/commands.scm +++ b/lib/chibi/snow/commands.scm @@ -1383,7 +1383,9 @@ (chibi (eval '(current-module-path) (environment '(chibi)))) (else (process->sexp '(chibi-scheme -q -p "(current-module-path)")))))) - (lib-dir (find (lambda (d) (string-contains d "/lib")) dirs))) + (lib-dir (find (lambda (d) (and (equal? (string-ref d 0) #\/) + (string-contains d "/lib"))) + dirs))) (if lib-dir (cons lib-dir (delete lib-dir dirs)) dirs)))