The problem seems to be with the grread loop. Exit the selection with hitting the right click, and then exit hitting enter. If I hit enter I can see the text, and place it, but if I hit the right click, then it just places.
edit: Added code to show what works here
(while (not (eq 3 (car (setq gr (grread 't 5 0)))))