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.