diff --git a/racket/collects/racket/list.rkt b/racket/collects/racket/list.rkt
index 39d61fb8b5..92a38a8e6a 100644
--- a/racket/collects/racket/list.rkt
+++ b/racket/collects/racket/list.rkt
@@ -254,7 +254,7 @@
 
 (define (count-from-right who list pred)
   (unless (procedure? pred)
-    (raise-argument-error who "procedure?" 0 list pred))
+    (raise-argument-error who "procedure?" 1 list pred))
   (let loop ([list list] [rev '()] [n 0])
     (if (pair? list)
       (loop (cdr list) (cons (car list) rev) (add1 n))