diff --git a/multi.isbpl b/multi.isbpl
index 23a00b0..3d0d186 100644
--- a/multi.isbpl
+++ b/multi.isbpl
@@ -38,6 +38,6 @@ def Context construct Context {
     }
     copyFunc {
         def this =this
-        swap jContext level0 put2 pop
+        swap this jContext level0 add2
     }
 } =Context