diff --git a/pcomp/pcomp.pas b/pcomp/pcomp.pas
index 0eca89d..c2b8a2f 100644
--- a/pcomp/pcomp.pas
+++ b/pcomp/pcomp.pas
@@ -2186,7 +2186,7 @@ begin
 	if ch = '!' then
 	(* special comment till end of line *)
 	begin
-		while not (nextChar = #13) do (* nothing *);
+		while not (nextChar in [#13, #10]) do (* nothing *);
 		readNextToken;
 	end
 	else