diff --git a/src/Kernel/Display.ZC b/src/Kernel/Display.ZC
index 97ae3793..9d2a31f9 100755
--- a/src/Kernel/Display.ZC
+++ b/src/Kernel/Display.ZC
@@ -35,9 +35,9 @@ See also $LK,"GrUpdateScreen",A="MN:GrUpdateScreen"$().
 	}
 	if (ch == '\t')
 	{
-		RawPutChar(CH_SPACE);
-		while (text.raw_col & 3)
+		do
 			RawPutChar(CH_SPACE);
+		while (text.raw_col & 3);
 	}
 	else if (ch == CH_BACKSPACE)
 	{