Fixed set conversion

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

source/Shell.Mod

@@ -370,7 +370,7 @@ TYPE
 						IF Match(inputFile) THEN (* "<" filename *)
 							IF (cmd.context.in = context.in) THEN
 								Skip;
-								IF Token(fn, -char) & (fn # "") THEN
+								IF Token(fn, SET(-char)) & (fn # "") THEN
 									f := Files.Old(fn);
 									IF (f # NIL) THEN
 										Files.OpenReader(fr, f, 0);