diff --git a/first/first b/first/first
index 5e993ee4..34739d54 100755
--- a/first/first
+++ b/first/first
@@ -264,6 +264,14 @@ q
 ABC
 	  done
 	)
+	( cd ..
+	  cp Action Action.orig
+	  ed - Action <<ABC
+/EM interpreter in C/,/^end/s/^/!/
+w
+q
+ABC
+	)
 	;;
 *)	( cd ../lang/cem/cemcom
 	  cp BigPars Parameters