[racket] Procedure name printing in DrRacket

Dear list members:

In DrRacket
Given the following definitions in the definitions window:
-------------------------------------------------------------------------------
#lang racket
(define (double expr) ((if (string? expr) string-append +) expr expr))
(define (twice fn x) (fn(fn x)))
(define (louder str) (lambda (s)(string-append s "!")))
(define (make-add-suffix s2)(lambda (s) (string-append s s2)))
(define stronger (make-add-suffix "!"))
-----------------------------------------------------------------------------------

and the following in the interactions window:
---------------------------------------------------------
Welcome to DrRacket, version 5.2.1 [3m].
Language: racket; memory limit: 128 MB.
> double
#<procedure:double>
> twice
#<procedure:twice>
> louder
#<procedure:louder>
> make-add-suffix
#<procedure:make-add-suffix>
> stronger
#<procedure:...itions\tests.rkt:6:28>
>
-------------------------------------------------------------

For:
>stronger
Why does DrRacket print  #<procedure:...itions\tests.rkt:6:28>
and not #<procedure:stronger>

Thanks,
Harry