diff --git a/collects/srfi/54/cat.ss b/collects/srfi/54/cat.ss
index 3ee6829eef..4f9c453d40 100644
--- a/collects/srfi/54/cat.ss
+++ b/collects/srfi/54/cat.ss
@@ -244,9 +244,6 @@
                   #t
                   #f)))))
   
-  (define (exact-integer? n)
-    (and (integer? n) (exact? n)))
-  
   (define (exact-integer/string? ns)
     (or (and (integer? ns)
              (exact? ns))