From fe734a889397a9b0bbc55a997049d44166f18eae Mon Sep 17 00:00:00 2001
From: Doug-Richardson <doug116654@gmail.com>
Date: Wed, 19 Apr 2017 16:22:47 -0400
Subject: Fixed bug where small strings would crash

---
 Hermes_Gui1.2.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Hermes_Gui1.2.rkt b/Hermes_Gui1.2.rkt
index c1f4545..a051c10 100644
--- a/Hermes_Gui1.2.rkt
+++ b/Hermes_Gui1.2.rkt
@@ -75,7 +75,7 @@
           (if (eq? (string-ref str (+ start index)) #\~)
               (substring str start (+ start index))
               (helper str (+ index 1))))
-        (helper string start)))
+        (helper string 0)))
     
     (define (user-message onetrueinput)
       (begin
-- 
cgit v1.2.3