diff --git a/util/opt/putline.c b/util/opt/putline.c
index cc152bca1..afa49f763 100644
--- a/util/opt/putline.c
+++ b/util/opt/putline.c
@@ -131,6 +131,8 @@ putlines(lnp) register line_p lnp; {
 			curlin = -2;
 			break;
 		default:
+			if ((em_flag[instr-sp_fmnem]&EM_FLO)==FLO_P)
+				curlin = -2;
 			outinst(instr);
 		}
 processoperand: