diff --git a/src/list.c b/src/list.c
index 9d07b7e233e4c5e8080a45f5472f92abbac52978..04ddbfca15961e702d0968bc62e498cafa97312c 100644
--- a/src/list.c
+++ b/src/list.c
@@ -1146,15 +1146,19 @@ list_slice_or_index(
 	n1 = len + n1;
     if (n1 < 0 || n1 >= len)
     {
-	// For a range we allow invalid values and return an empty
-	// list.  A list index out of range is an error.
+	// For a range we allow invalid values and for legacy script return an
+	// empty list, for Vim9 script start at the first item.
+	// A list index out of range is an error.
 	if (!range)
 	{
 	    if (verbose)
 		semsg(_(e_listidx), (long)n1_arg);
 	    return FAIL;
 	}
-	n1 = n1 < 0 ? 0 : len;
+	if (in_vim9script())
+	    n1 = n1 < 0 ? 0 : len;
+	else
+	    n1 = len;
     }
     if (range)
     {
diff --git a/src/testdir/test_listdict.vim b/src/testdir/test_listdict.vim
index bef4581d3f44cfc3362d5846a30236052006d219..8f8e34ceedae322f35db09b9f7c7d5552d2bce11 100644
--- a/src/testdir/test_listdict.vim
+++ b/src/testdir/test_listdict.vim
@@ -42,6 +42,23 @@ func Test_list_slice()
   let l[:1] += [1, 2]
   let l[2:] -= [1]
   call assert_equal([2, 4, 2], l)
+
+  let lines =<< trim END
+      VAR l = [1, 2]
+      call assert_equal([1, 2], l[:])
+      call assert_equal([2], l[-1 : -1])
+      call assert_equal([1, 2], l[-2 : -1])
+  END
+  call CheckLegacyAndVim9Success(lines)
+
+  let l = [1, 2]
+  call assert_equal([], l[-3 : -1])
+
+  let lines =<< trim END
+      var l = [1, 2]
+      assert_equal([1, 2], l[-3 : -1])
+  END
+  call CheckDefAndScriptSuccess(lines)
 endfunc
 
 " List identity
diff --git a/src/version.c b/src/version.c
index 7fd4d80d75c4aafd57097fbfdd146dd79922591c..a31b4941a58532948ba623a39e8939752e47430d 100644
--- a/src/version.c
+++ b/src/version.c
@@ -755,6 +755,8 @@ static char *(features[]) =
 
 static int included_patches[] =
 {   /* Add new patch number below this line */
+/**/
+    3336,
 /**/
     3335,
 /**/