gform in proper order

1 files changed, 1 insertions, 1 deletions

diff --git a/tests/gform.lac b/tests/gform.lac
index 4ce75e3e..f9b028fa 100644
--- a/tests/gform.lac
+++ b/tests/gform.lac
@@ -23,7 +23,7 @@ functor F (M : S) : S' where con rs = M.rs = struct
                         {fold [fn rs :: {Unit} => xml lform [] (stringify rs)]
                                 (fn nm :: Name => fn u :: Unit => fn rest :: {Unit} =>
                                         fn frag : xml lform [] (stringify rest) =>
-                                                <lform><li>{frag} <textbox{nm}/></li></lform>)
+                                                <lform><li> <textbox{nm}/></li> {useMore frag}</lform>)
                                 <lform></lform>
                                 [rs]}