diff --git a/regression/Makefile b/regression/Makefile
index 384fefd72..0cbd2aeb8 100644
--- a/regression/Makefile
+++ b/regression/Makefile
@@ -7,6 +7,7 @@ RC=../src/rc.opt
 check: $(TESTS)
 
 $(TESTS): %: %.expr
+	@echo $@
 	@$(RC) $< && cat $@.input | ./$@ > $@.log && diff $@.log orig/$@.log
 	@cat $@.input | $(RC) -i $< > $@.log && diff $@.log orig/$@.log
 	@cat $@.input | $(RC) -s $< > $@.log && diff $@.log orig/$@.log
diff --git a/regression/orig/test054.log b/regression/orig/test054.log
new file mode 100644
index 000000000..7a93c7c27
--- /dev/null
+++ b/regression/orig/test054.log
@@ -0,0 +1,13 @@
+> 105
+105
+105
+230
+105
+105
+105
+230
+105
+250
+1
+2
+3
diff --git a/regression/test054.expr b/regression/test054.expr
new file mode 100644
index 000000000..c4c13b15f
--- /dev/null
+++ b/regression/test054.expr
@@ -0,0 +1,26 @@
+x := y := z := 105;
+
+n := read ();
+
+write (x);
+write (y);
+write (z);
+
+if z then x else y fi := 230;
+
+write (x);
+write (y);
+write (z);
+
+(write (z); z) := 250;
+
+write (x);
+write (y);
+write (z);
+
+s := [1, 2, 3, 4];
+i := -1;
+
+while n := s[i := i + 1]; n == 1 !! n == 2 !! n == 3 do
+  write (n)
+od	
diff --git a/regression/test054.input b/regression/test054.input
new file mode 100644
index 000000000..c22708346
--- /dev/null
+++ b/regression/test054.input
@@ -0,0 +1 @@
+0
\ No newline at end of file