1 files changed, 1 insertions, 1 deletions
diff --git a/demo/more/dlist.ur b/demo/more/dlist.ur
index 6e660ab8..02286965 100644
--- a/demo/more/dlist.ur
+++ b/demo/more/dlist.ur
@@ -58,7 +58,7 @@ fun replace [t] dl ls =
                 case ls of
                     [] => return acc
                   | x :: ls =>
-                    this <- source (Cons (x, tl));
+                    this <- source (Cons (x, acc));
                     build ls this
         in
             hd <- build (List.rev ls) tl;