Use current-graphics, not applet for end-shape

begin-shape correctly used (current-graphics), but end-shape did not.
This was the reason why begin-shape/end-shape did not work inside the
with-graphics macro.
Merge pull request #142 from thobbs/fix-end-shape

Use (current-graphics), not applet for end-shape