1 files changed, 5 insertions, 2 deletions
diff --git a/tests/caseMod.lac b/tests/caseMod.lac
index 49bfdca8..0a870160 100644
--- a/tests/caseMod.lac
+++ b/tests/caseMod.lac
@@ -24,8 +24,11 @@ val toString = fn x =>
           | C B => "C B"
           | D => "D"
 
-val page = fn x => <html><body>
-        {cdata (toString x)}
+val rec page = fn x => <html><body>
+        {cdata (toString x)}<br/>
+        <br/>
+
+        <a link={page x}>Again!</a>
 </body></html>
 
 val main : unit -> page = fn () => <html><body>