diff --git a/forth/core.fs b/forth/core.fs
index 183722a..8128d5a 100644
--- a/forth/core.fs
+++ b/forth/core.fs
@@ -126,4 +126,5 @@
         ROT SWAP OVER I + ( a1 a2 x a2 )
         C!                ( a1 a2 )
     LOOP
+    2DROP
 ;