diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm
index dce105d..76270dc 100644
--- a/2.10/Source/Main.dfm
+++ b/2.10/Source/Main.dfm
@@ -2,7 +2,7 @@ object MainForm: TMainForm
   Left = 411
   Top = 128
   Width = 574
-  Height = 595
+  Height = 615
   Caption = 'Apophysis'
   Color = clBtnFace
   Font.Charset = ANSI_CHARSET
@@ -291,7 +291,7 @@ object MainForm: TMainForm
       Left = 1
       Top = 1
       Width = 400
-      Height = 492
+      Height = 512
       Align = alClient
       AutoSize = True
       PopupMenu = DisplayPopup
@@ -2707,14 +2707,14 @@ object MainForm: TMainForm
       object mnuVRandom: TMenuItem
         Caption = 'Random'
         Checked = True
-        GroupIndex = 1
+        GroupIndex = 2
         RadioItem = True
         ShortCut = 121
         OnClick = mnuVRandomClick
       end
       object N8: TMenuItem
         Caption = '-'
-        GroupIndex = 1
+        GroupIndex = 2
       end
     end
     object mnuScript: TMenuItem
diff --git a/2.10/Source/ScriptForm.pas b/2.10/Source/ScriptForm.pas
index 9cf4af9..c835e10 100644
--- a/2.10/Source/ScriptForm.pas
+++ b/2.10/Source/ScriptForm.pas
@@ -1663,9 +1663,9 @@ begin
   begin
     i := GetInputArgAsInteger(0);
     if (i < 0) or (i >= NRVISVAR) then
-      i := NRVISVAR - 1;
+      i := NRVISVAR ;
     Variation := TVariation(i);
-    if i = -1 then
+    if i = NRVISVAR then
       MainForm.mnuVRandom.checked := True
     else
       MainForm.VarMenus[i].Checked := True;