[plt-scheme] Better print-values wrapping in scheme/private/modbeg.ss ?

Is it possible to improve the print-values wrapping in modbeg.ss?

Consider this example:

> (expand-syntax
     #'(module m scheme/base
         (define a 1)
         a))

Click on the blue arrow in DrScheme, and see:

(module m scheme/base
  (#%module-begin
   (define-values (a) '1)
   (#%app call-with-values (lambda () a) print-values)))

Now click on the variable name a in the last line.

The problem is that the entire #%app expression is chosen,
and not just the variable.

-- 
Jens Axel Søgaard
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20090715/a8e4ca98/attachment.html>