X-Git-Url: https://git.gag.com/?p=fw%2Faltos;a=blobdiff_plain;f=src%2Fscheme%2Fao_scheme_read.c;fp=src%2Fscheme%2Fao_scheme_read.c;h=3575ff3fff14cfcdaa3ac3afec22a6c960243624;hp=f9630d39e96ef92db8a109a69c071cd0ad45d535;hb=4b52fc6eea9a478cb3dd42dcd32c92838df39734;hpb=f8a967959b2f5ca3486ab3422f30fe4ad4ba17a8

diff --git a/src/scheme/ao_scheme_read.c b/src/scheme/ao_scheme_read.c
index f9630d39..3575ff3f 100644
--- a/src/scheme/ao_scheme_read.c
+++ b/src/scheme/ao_scheme_read.c
@@ -186,8 +186,9 @@ lexc(FILE *in)
 			c = 0;
 			lex_class = ENDOFFILE;
 		} else {
-			c &= 0x7f;
-			lex_class = lex_classes[c];
+			lex_class = PRINTABLE;
+			if (c <= 0x7f)
+				lex_class = lex_classes[c];
 		}
 	} while (lex_class & IGNORE);
 	return c;