diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index 8b011354..07703a70 100644
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -126,6 +126,7 @@ IMPLEMENTATION MODULE PascalIO;
 		IF type # Preading THEN Error(Preading); END;
 		IF NOT done THEN
 			Get(InputText);
+			done := TRUE;
 		END;
 		RETURN ch;
 	END;
@@ -145,7 +146,6 @@ IMPLEMENTATION MODULE PascalIO;
 		ELSE
 			Read(stream, ch, result);
 		END;
-		done := TRUE;
 	END;
   END Get;