diff --git a/regression/test034.expr b/regression/test034.expr
new file mode 100644
index 000000000..0a624a069
--- /dev/null
+++ b/regression/test034.expr
@@ -0,0 +1,17 @@
+fun printString (x) {
+  for i:=0, i<x.length, i:=i+1 do
+    write (x[i])    
+  od
+}
+
+n := read ();
+
+x := "abcdefgh";
+
+printString (x);
+
+for i:=0, i<x.length, i:=i+1 do
+  x[i] := x[i]+2  
+od;
+
+printString (x)