* slib.scm (slib-parent-dir): Use string-length, not length.

(Thanks to Bernard Urban.)

diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 2ec76d3..8d9d66b 100644 (file)
--- a/ice-9/slib.scm
+++ b/ice-9/slib.scm
@@ -127,7 +127,7 @@
 
 (define slib-parent-dir
   (let* ((path (%search-load-path "slib/require.scm")))
-    (make-shared-substring path 0 (- (length path) 17))))
+    (make-shared-substring path 0 (- (string-length path) 17))))
 
 (define-public (implementation-vicinity)
   (string-append slib-parent-dir "/"))