Fix stupid stupid unbound var drop in extract-function