diff --git a/lang/m2/comp/code.c b/lang/m2/comp/code.c
index 29ff7819..624f9d2d 100644
--- a/lang/m2/comp/code.c
+++ b/lang/m2/comp/code.c
@@ -821,6 +821,8 @@ CodeOper(expr, true_label, false_label)
 		case T_POINTER:
 		case T_HIDDEN:
 		case T_EQUAL:
+			C_cmp();
+			break;
 		case T_CARDINAL:
 		case T_INTORCARD:
 			C_cmu(tp->tp_size);