fix #15238 (#15262)

* fix_15238

* fix test

tests/arc/t14383.nim

@@ -4,6 +4,7 @@ discard """
 hello
 hello
 @[4, 3, 2, 1]
+@["a", "b"]
 '''
 """
 
@@ -26,4 +27,19 @@ proc timSort(lst: var openArray[int]) =
 
 var a = @[4, 3, 2, 1]
 timSort(a)
-echo a
+echo a
+
+
+#------------------------------------------------------------------------------
+# Issue #15238
+#------------------------------------------------------------------------------
+
+proc sinkArg(x: sink seq[string]) =
+  discard
+
+proc varArg(lst: var seq[string]) = 
+  sinkArg(lst)
+
+var x = @["a", "b"]
+varArg(x)
+echo x