(setq sgml-transformation 'upcase) has no effect

[Francesco Potorti`]

>From textmodes/sgml-mode.el:

================
If you like upcased tags, put (setq sgml-transformation-function 'upcase)
in your `.emacs' file.
================

To reproduce the problem:

emacs -Q
C-x C-f a.html RET
M-x set-variable RET sgml-transformation-function RET upcase RET
C-c C-t small RET

what appears in the buffer is 

  <small></small>

rather than the expected

  <SMALL></SMALL>

As far as I remember, this is an old bug.