summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--ice-9/slib.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/ice-9/slib.scm b/ice-9/slib.scm
index 2ec76d32b..8d9d66b76 100644
--- 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 "/"))