1 files changed, 15 insertions, 0 deletions
diff --git a/tests/nest2.ur b/tests/nest2.ur
new file mode 100644
index 00000000..9a1d271a
--- /dev/null
+++ b/tests/nest2.ur
@@ -0,0 +1,15 @@
+fun wooho (wrap : xbody -> transaction page) =
+    let
+        fun subPage n =
+            let
+                fun subberPage () = wrap <xml>{[n]}</xml>
+            in
+                wrap <xml><a link={subberPage ()}>Go</a></xml>
+            end
+    in
+        subPage 0
+    end
+
+fun wrap x = return <xml><body>{x}</body></xml>
+
+fun main () = wooho wrap