diff --git a/components/jcf2/Parse/BuildParseTree.pas b/components/jcf2/Parse/BuildParseTree.pas
index 4f29b3cc5b..fffc854735 100644
--- a/components/jcf2/Parse/BuildParseTree.pas
+++ b/components/jcf2/Parse/BuildParseTree.pas
@@ -1699,10 +1699,8 @@ begin
 
   Recognise([ttOpenBracket,ttOpenSquareBracket]);
 
-  RecogniseTypedConstant;
-  while (fcTokenList.FirstSolidTokenType = ttComma) do
+  while True do
   begin
-    Recognise(ttComma);
     RecogniseTypedConstant;
     // range   x..y
     if fcTokenList.FirstSolidTokenType = ttDoubleDot then
@@ -1710,6 +1708,9 @@ begin
       Recognise(ttDoubleDot);
       RecogniseTypedConstant;
     end;
+    if (fcTokenList.FirstSolidTokenType <> ttComma) then
+      break;
+    Recognise(ttComma)
   end;
 
   Recognise([ttCloseBracket,ttCloseSquareBracket]);