Fixed support for System.DoCommands

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

source/WMTextView.Mod

@@ -3696,11 +3696,11 @@ TYPE
 				END;
 
 				(* check whether the command is System.DoCommands *)
-				IF (i < 22) THEN
+				IF (i < 17) THEN
 					string[i] := CHR(ch);
 					INC(i);
-					IF (i = 22) THEN
-						string[22] := 0X;
+					IF (i = 17) THEN
+						string[17] := 0X;
 						IF (string = "System.DoCommands") OR Strings.StartsWith2("PreliminaryCommands",string) THEN
 							sDoCommands := TRUE;
 						END;