diff --git a/game.scm b/game.scm
index a8ae63a..e518b86 100644
--- a/game.scm
+++ b/game.scm
@@ -173,7 +173,7 @@
             (append part
                     (if (= start 0 )
                         '()
-                        (substring (car string-list) 0 start))
+                        (list (substring (car string-list) 0 start)))
                     (list (func (substring (car string-list) start (+ start len))))
                     (if (= (+ start len) (string-length (car string-list)))
                         '()