Stepper does not step for check-satisfied

[shhyou]

I am not sure if it is just me or for everyone. When trying to step this program:

#lang htdp/isl+
(define (my-add x)
  (lambda (y)
    (+ x y)))
(check-satisfied (my-add 5) procedure?)

The stepper expands check-satisfied and steps through its implementation. Moreover, adding this test:

(check-satisfied (my-add 5)
                 (lambda (g)
                   (and (procedure? g)
                        (= (g 3) 8))))

raises the error

lookup-binding: variable not found in environment: p?

[shhyou]

(This is the case since at least v8.8.)