On "GNU Emacs 24.2.1 (i386-mingw-nt5.1.2600)  of 2012-08-27 on MARVIN" I had to comment out the following block to make the code work properly: . . .