--- a/src/fns.c	Mon Aug 13 10:33:19 2007 +0200
+++ b/src/fns.c	Mon Aug 13 10:34:13 2007 +0200
@@ -606,10 +606,12 @@
         /* Urk!  We allow this, for "compatibility"... */
         ;
 #endif
+#if 0				/* removed for XEmacs 21 */
       else if (INTP (seq))
         /* This is too revolting to think about but maintains
            compatibility with FSF (and lots and lots of old code). */
         args[argnum] = Fnumber_to_string (seq);
+#endif
       else
 	{
           check_losing_bytecode ("concat", seq);