diff --git a/t/spec/S32-array/push.t b/t/spec/S32-array/push.t
index fd6005d..bce61af 100644
--- a/t/spec/S32-array/push.t
+++ b/t/spec/S32-array/push.t
@@ -9,7 +9,7 @@ Push tests
 
 =end description
 
-plan 50;
+plan 52;
 
 # basic push tests
 {
@@ -26,17 +26,17 @@ plan 50;
     is(@push[1], 2, 'we found the right element');
 
     push(@push, 3);
-    is(+@push, 3, 'we have 3 element in the array');
+    is(+@push, 3, 'we have 3 elements in the array');
     is(@push[2], 3, 'we found the right element');
 
     push(@push, 4);
-    is(+@push, 4, 'we have 4 element in the array');
+    is(+@push, 4, 'we have 4 elements in the array');
     is(@push[3], 4, 'we found the right element');
 
 #?rakudo skip 'named args'
 {
     push(:array(@push), 5);
-    is(+@push, 5, 'we have 5 element in the array (with named arg)');
+    is(+@push, 5, 'we have 5 elements in the array (with named arg)');
     is(@push[4], 5, 'we found the right element (with named arg)');
 }
 }
@@ -151,4 +151,25 @@ plan 50;
     is(@push[0][*-1],  25, 'nested arrayref, last value is 25');
 }
 
+# RT #69548
+{
+    {
+        my $x = 1;
+        my @a;
+        push @a, $x;
+        ++$x;
+    
+        is @a[0], 1, 'New element created by push(@a, $x) isn\'t affected by changes to $x';
+    }
+    {
+        my $x = 1;
+        my @a;
+        push @a, $x;
+        ++@a[0];
+    
+        is $x, 1, '$x isn\'t affected by changes to new element created by push(@a, $x)';
+    }
+}
+
+
 # vim: syn=perl6

diff --git a/t/spec/S32-array/push.t b/t/spec/S32-array/push.t
index d2dd721..c0c7a6b 100644
--- a/t/spec/S32-array/push.t
+++ b/t/spec/S32-array/push.t
@@ -9,7 +9,7 @@ Push tests
 
 =end description
 
-plan 50;
+plan 51;
 
 # basic push tests
 {
@@ -157,17 +157,17 @@ plan 50;
         my @a = ();
         push @a, $x;
         ++$x;
-    
+
         is @a[0], 1, 'New element created by push(@a, $x) isn\'t affected by changes to $x';
     }
-    # {
-    #     my $x = 1;
-    #     my @a = ();
-    #     push @a, $x;
-    #     ++@a[0];
-    # 
-    #     is $x, 1, '$x isn\'t affected by changes to new element created by push(@a, $x)';
-    # }
+    {
+        my $x = 1;
+        my @a = ();
+        push @a, $x;
+        ++@a[0];
+
+        is $x, 1, '$x isn\'t affected by changes to new element created by push(@a, $x)';
+    }
 }
 
 
diff --git a/t/spec/S32-array/unshift.t b/t/spec/S32-array/unshift.t
index b126e19..cf989c2 100644
--- a/t/spec/S32-array/unshift.t
+++ b/t/spec/S32-array/unshift.t
@@ -9,7 +9,7 @@ Unshift tests
 
 =end description
 
-plan 59;
+plan 61;
 
 # basic unshift tests
 
@@ -145,4 +145,25 @@ plan 59;
 #     # best not to uncomment this it just go on forever
 #     todo_throws_ok { 'unshift @unshift, 10' }, '?? what should this error message be ??', 'cannot unshift onto a Inf array';
 # }
+
+# RT #69548
+{
+    {
+        my $x = 1;
+        my @a = ();
+        unshift @a, $x;
+        ++$x;
+
+        is @a[0], 1, 'New element created by unshift(@a, $x) isn\'t affected by changes to $x';
+    }
+    {
+        my $x = 1;
+        my @a = ();
+        unshift @a, $x;
+        ++@a[0];
+
+        is $x, 1, '$x isn\'t affected by changes to new element created by unshift(@a, $x)';
+    }
+}
+
 # vim: ft=perl6