Index: oup/current/FileClasses/_DataTypes.pas
===================================================================
--- oup/current/FileClasses/_DataTypes.pas	(revision 241)
+++ oup/current/FileClasses/_DataTypes.pas	(revision 243)
@@ -835,8 +835,13 @@
   FNames := TStringList.Create;
   for i := 0 to High(ExtraArgs) do
+  begin
     case ExtraArgs[i].VType of
-      vtChar: FNames.Add(ExtraArgs[0].VChar);
-      vtAnsiString: FNames.Add(String(ExtraArgs[0].VAnsiString));
+      vtChar: FNames.Add(ExtraArgs[i].VChar);
+      vtAnsiString: FNames.Add(String(ExtraArgs[i].VAnsiString));
     end;
+    if Length(FDescription) > 0 then
+      FDescription := FDescription + #13#10;
+    FDescription := FDescription + '$' + IntToHex(1 shl i,2) + ': ' + FNames.Strings[FNames.Count - 1];
+  end;
   FDataLength := 1;
   FType := 'BitSet';