diff --git a/srfi-130-test.scm b/srfi-130-test.scm
index a8faeff..0e580c1 100644
--- a/srfi-130-test.scm
+++ b/srfi-130-test.scm
@@ -762,10 +762,10 @@
 (or (= 3 (string-cursor->index ABC (string-index->cursor ABC 3)))
     (fail 'string-cursor->index))
 
-(or (= 0 (string-index->cursor "" (string-index->cursor "" 0)))
+(or (= 0 (string-cursor->index "" (string-index->cursor "" 0)))
     (fail 'string-index->cursor))
 
-(or (= 3 (string-index->cursor ABC (string-index->cursor ABC 3)))
+(or (= 3 (string-cursor->index ABC (string-index->cursor ABC 3)))
     (fail 'string-index->cursor))
 
 ;;; Predicates
@@ -1029,8 +1029,8 @@
 
 (or (string=? ABC
               (substring/cursors ABC
-                                 (string-index->cursor "abc" 0)
-                                 (string-index->cursor "abc" 3)))
+                                 (string-index->cursor ABC 0)
+                                 (string-index->cursor ABC 3)))
     (fail 'substring/cursors))
 
 (or (string=? "b" (substring/cursors "abc" 1 2))
@@ -1071,8 +1071,8 @@
 
 (or (string=? (substring ABC 1 2)
               (string-copy/cursors ABC
-                                   (string-index->cursor "abc" 1)
-                                   (string-index->cursor "abc" 2)))
+                                   (string-index->cursor ABC 1)
+                                   (string-index->cursor ABC 2)))
     (fail 'string-copy/cursors))
 
 (or (string=? "" (string-take "" 0))