diff --git a/day01-hard/main.scm b/day01-hard/main.scm
index 1a40234..f7ca138 100755
--- a/day01-hard/main.scm
+++ b/day01-hard/main.scm
@@ -106,8 +106,8 @@
   (starts-with '(1 2 3) '(4 5 6 7)))
 
 (assert-eq "starts-with test 5 failed"
-  (string->list "d")
-  (starts-with (string->list "abc") (string->list "abcd")))
+  (string->list "de")
+  (starts-with (string->list "abc") (string->list "abcde")))
 
 ;=============== tokenize ======================
 (define (tokenize-generic tokens next) (Y