[plt-scheme] Debugging through eval?

If we debug

(eval '(begin (define x 1)
              (display x)
              (display (* x x))))

single step skips over whole quoted code. Is it possible to adjust 
debugger so it walks through code? Even better, to do the same for

(eval X)

where X can be expanded either "in place" or in the new, automatically 
opened tab of the IDE? I don't know how complicated it could be, but it 
might be significant improvement for those who use eval.

--
Kazimir Majorinc