diff --git a/tests/more-tests/weird-cc.expected b/tests/more-tests/weird-cc.expected
new file mode 100644
index 0000000..917fd9d
--- /dev/null
+++ b/tests/more-tests/weird-cc.expected
@@ -0,0 +1 @@
+11213
diff --git a/tests/more-tests/weird-cc.rkt b/tests/more-tests/weird-cc.rkt
new file mode 100644
index 0000000..291900d
--- /dev/null
+++ b/tests/more-tests/weird-cc.rkt
@@ -0,0 +1,5 @@
+#lang planet dyoo/whalesong
+(define program (lambda () (let ((y (call/cc (lambda (c) c)))) (display 1) (call/cc (lambda (c) (y c))) (display 2) (call/cc (lambda (c) (y c))) (display 3))))
+
+(program)
+(newline)
\ No newline at end of file
diff --git a/tests/run-more-tests.rkt b/tests/run-more-tests.rkt
index 4a4e2a9..9a79ce7 100644
--- a/tests/run-more-tests.rkt
+++ b/tests/run-more-tests.rkt
@@ -27,3 +27,4 @@
 (test "more-tests/conform.rkt")
 (test "more-tests/earley.rkt")
 (test "more-tests/view.rkt")
+(test "more-tests/weird-cc.rkt")