Fixed set value conversion

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7717 8c9fc860-2736-0410-a75d-ab315db34111

source/FoxGlobal.Mod

@@ -1456,7 +1456,7 @@ TYPE
 
 	PROCEDURE ConvertSet*(this: SET; bits: LONGINT): SET;
 	BEGIN
-		RETURN this * {0 .. MIN (bits, MAX (SET)) - 1};
+		RETURN this * {0 .. MIN (bits - 1, MAX (SET))};
 	END ConvertSet;
 
 	PROCEDURE IsUnsignedInteger*(this: HUGEINT; sizeInBits: LONGINT): BOOLEAN;