diff --git a/pkg/compiler/compiler.go b/pkg/compiler/compiler.go
index 304beba..d2c977c 100644
--- a/pkg/compiler/compiler.go
+++ b/pkg/compiler/compiler.go
@@ -205,6 +205,7 @@ func (c *Context) leaveFn(ctx *Context) {
 
 	// if we have a closure on our hands then add closed overs
 	if ctx.isClosure {
+		c.emit(vm.OPPCK)
 		for _, clo := range ctx.closedOvers {
 			_ = clo.source().emit()
 			c.emit(vm.OPPAK)
diff --git a/pkg/vm/vm.go b/pkg/vm/vm.go
index 41828a0..45afb9b 100644
--- a/pkg/vm/vm.go
+++ b/pkg/vm/vm.go
@@ -45,6 +45,7 @@ const (
 
 	OPLDK // load closed over LDK (index int32)
 	OPPAK // push closed over value to a closure
+	OPPCK // clear closed over values
 
 	OPREC // loop recurse REC (offset int32, argc int32)
 	OPREF // function recurse REF (argc int32)
@@ -67,6 +68,7 @@ func OpcodeToString(op uint8) string {
 		"LDV",
 		"LDK",
 		"PAK",
+		"PCK",
 		"REC",
 		"REF",
 	}
@@ -492,6 +494,19 @@ func (f *Frame) Run() (Value, error) {
 			fun.closedOvers = append(fun.closedOvers, val)
 			f.ip++
 
+		case OPPCK:
+			idx := f.sp - 1
+			if idx < 0 {
+				return NIL, NewExecutionError("PCK stack overflow")
+			}
+			cls := f.stack[idx]
+			if cls.Type() != FuncType {
+				return NIL, NewExecutionError("PCK expected a Fn")
+			}
+			fun := cls.(*Func)
+			fun.closedOvers = nil
+			f.ip++
+
 		case OPREF:
 			arity, err := f.code.Get32(f.ip + 1)
 			if err != nil {