diff --git a/src/mudsys/midas.324 b/src/mudsys/midas.324
index 7f80ec74..5131d1b4 100644
--- a/src/mudsys/midas.324
+++ b/src/mudsys/midas.324
@@ -3857,7 +3857,10 @@ CNST2:	MOVEI D,(T)	;STE IDX IN D FOR OUTSM0
 	MOVE SYM,(T)	;GET NAME OF AREA
 	TLC SYM,400000#LCUDF	;CLEAR LCUDF, SET HALF-KILL
 	TRNE FF,FRGLOL
-	PUSHJ P,PDEFPT	;DEFINE SYM FOR BEGINNING OF CONSTANTS AREA
+	JRST [	MOVEI A,CDEFPT	;Define sym for beginning of constants area
+		PUSHJ P,P7X
+		PUSHJ P,OUTSM	;As PDEFPT but punch squoze (see RPWRD1)
+		JRST .+1]
 	MOVE A,CONTBA
 CNSTH:	CAML A,PLIM
 	 JRST CNSTA	;THRU