diff --git a/scsh/lib/string-lib.scm b/scsh/lib/string-lib.scm
index a53e362..0282b36 100644
--- a/scsh/lib/string-lib.scm
+++ b/scsh/lib/string-lib.scm
@@ -1139,7 +1139,7 @@
 ;	((< i start) ans))))
 
 (define (string->list s . maybe-start+end)
-  (apply string-fold-right s cons '() maybe-start+end))
+  (apply string-fold-right cons '() s maybe-start+end))