How to get Scribble evaluator to print examples using alternate constructor name

[Nadeem Abdul Hamid]

The following Scribble source:

#lang scribble/manual
@(require scribble/example teachpack/2htdp/scribblings/img-eval)
@(define guide-eval (make-img-eval)) ; from teachpack/2htdp/scribblings/img-eval
@examples[#:eval guide-eval (make-posn (+ 1 1) (+ 2 2))]

Produces this text for the (HTML) output:

Example:
> (make-posn (+ 1 1) (+ 2 2))
(posn 2 4)

How do I get it to show (make-posn 2 4) instead of (posn 2 4)?

Thanks,

--- nadeem

--- nadeem