Quick fix. Find this
( (vl-position ent nlst) (alert "Already Selected"))
and change to this
( (vl-position ent nlst) (alert "Already Selected") (setq num nil))
I should have spotted this.
See this page at the Autodesk Knowledge Network. Be very careful when moving surfaces. Make sure it's not the individual point that has shifted. Try to figure out what has happened so you're fixing the right problem. I once lost a job for fixing the wrong problem.