diff --git a/lib/init-7.scm b/lib/init-7.scm
index 32d709d1..d8e273d5 100644
--- a/lib/init-7.scm
+++ b/lib/init-7.scm
@@ -1098,6 +1098,8 @@
   (define (string-copy s) (substring-cursor s 0 (string-size s)))
   (define string-cursor-end string-size))
  (else
+  (define string-size string-length)
+  (define substring-cursor substring)
   (define (string-copy s) (substring s 0 (string-length s)))
   (define string-cursor-end string-length)
   (define string-cursor-ref string-ref)