How to check if a number is narcissistic in scheme (R5RS)?

Question

I was wondering why the application is not a procedure? This is the code I am using.

(define (num-digits? x) (if (< x 10) 1 (+ 1 (num-digits? (/ x 10)))))

(