[plt-scheme] v4: object-name of port

In the DrOCaml language<%>, I have the following method:

(define/public (front-end/complete-program port settings)
  (define tab (send (object-name port) get-tab))
  (send tab ocaml:reset-process settings)
  (ld:front-end/complete-program port))

Between v3 and v4, the behavior of (object-name port) seems to have changed.

What's the easiest way to replicate the old behavior in v4?

~ Aleks