diff --git a/tests/more-tests/simple-loop.expected b/tests/more-tests/simple-loop.expected
new file mode 100644
index 0000000..d567f8a
--- /dev/null
+++ b/tests/more-tests/simple-loop.expected
@@ -0,0 +1 @@
+4950
diff --git a/tests/more-tests/simple-loop.rkt b/tests/more-tests/simple-loop.rkt
new file mode 100644
index 0000000..53d1bf1
--- /dev/null
+++ b/tests/more-tests/simple-loop.rkt
@@ -0,0 +1,8 @@
+#lang planet dyoo/whalesong/base
+
+(let myloop ([i 0] [acc 0])
+  (cond
+   [(< i 100)
+    (myloop (add1 i) (+ acc i))]
+   [else
+    acc]))
\ No newline at end of file
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index 7e57836..b955b44 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -7,6 +7,7 @@
 ;; type replaced with .expected.
 
 (test "more-tests/simple.rkt")
+(test "more-tests/simple-loop.rkt")
 (test "more-tests/booleans.rkt")
 (test "more-tests/module-scoping.rkt")
 (test "more-tests/checking.rkt")