Index: codegen/compile.tcl
==================================================================
--- codegen/compile.tcl
+++ codegen/compile.tcl
@@ -1228,11 +1228,11 @@
 	lassign [$b frame.create $varmeta $argc $argv \
 			[$b load $procmeta "proc.metadata"] \
 			[$b load $localcache "proc.localcache"]] \
 	    theframe thevarmap
 	my StoreResult $tgt $theframe
-	set thens [$b call dereference $theframe 0 CallFrame.nsPtr]
+	set thens [$b dereference $theframe 0 CallFrame.nsPtr]
 	return [list $theframe $thevarmap $thens $drop]
     }
 
     # TclCompiler:IssueInvoke --
     #