diff --git a/src/vmsrc/plvm02.s b/src/vmsrc/plvm02.s
index e70ff1e..a1cfa79 100644
--- a/src/vmsrc/plvm02.s
+++ b/src/vmsrc/plvm02.s
@@ -779,7 +779,7 @@ CSX	DEX
 	LDA	(IP),Y
 	TAY			; MAKE ROOM IN POOL AND SAVE ADDR ON ESTK
 	EOR	#$FF
-	SEC
+	CLC
 	ADC	PPL
 	STA	PPL
 	STA	ESTKL,X
@@ -1600,4 +1600,4 @@ RET	LDA	IFPL		; DEALLOCATE POOL
 	STA	IFPH
 	RTS
 VMEND	=	*
-}
\ No newline at end of file
+}