From 8b65e2930d09bd26d120a9073448de98a1e84cbf Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 28 Jan 2009 21:48:33 +0000
Subject: [PATCH] Enforcing documentated contract

svn: r13307
---
 collects/xml/private/xexpr.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/xml/private/xexpr.ss b/collects/xml/private/xexpr.ss
index 5ad02cf369..67c4a14e2b 100644
--- a/collects/xml/private/xexpr.ss
+++ b/collects/xml/private/xexpr.ss
@@ -56,7 +56,7 @@
         (cond
           ((string? x) (true))
           ((symbol? x) (true))
-          ((number? x) (true))
+          ((exact-nonnegative-integer? x) (true))
           ((comment? x) (true))
           ((pi? x) (true))
           ((cdata? x) (true))