diff --git a/SMILEBASIC/builtinfunctions.d b/SMILEBASIC/builtinfunctions.d
index 14480f6..e8d7c0a 100644
--- a/SMILEBASIC/builtinfunctions.d
+++ b/SMILEBASIC/builtinfunctions.d
@@ -2364,7 +2364,7 @@ class BuiltinFunction
         }
         foreach (i, j; l)
         {
-            array[i] = Value(cast(int)j);
+            array[cast(int)i] = Value(j);
         }
     }
     static void ACLS(PetitComputer p)