diff --git a/src/ikarus.boot b/src/ikarus.boot
index 8c5122a..70c1e17 100644
Binary files a/src/ikarus.boot and b/src/ikarus.boot differ
diff --git a/src/ikarus.library-manager.ss b/src/ikarus.library-manager.ss
index c66993f..81c3064 100644
--- a/src/ikarus.library-manager.ss
+++ b/src/ikarus.library-manager.ss
@@ -74,7 +74,7 @@
                (lambda (c)
                  (cond
                    [(or (char<=? #\a c #\z) 
-                        (char<=? #\A c #\A)
+                        (char<=? #\A c #\Z)
                         (char<=? #\0 c #\9) 
                         (memv c '(#\- #\. #\_ #\~)))
                     (display c)]
@@ -92,7 +92,8 @@
         (let ([str (library-name->file-name x)])
           (let f ([ls (library-path)])
             (and (pair? ls)
-                 (let ([name (string-append (car ls) "/" str)])
+                 (let ([name (string-append (car ls) str)])
+                   (printf "trying ~s\n" name)
                    (if (file-exists? name)
                        name
                        (f (cdr ls))))))))