Problem of define-program-framework

[Yasuaki Honda <honda%titisa.is.titech.junet%utokyo-relay.csnet@relay.cs.net>]

Dear Symbolics hackers,

When I specify :top-level keyword in a dw:define-program-framework 
with a function of my own read-eval-print loop, some troubles occure.

1. Nothing appears in Title pane.
2. Redisplaying does not occur after the execution of commands in 
   Display pane in which I specify
      :redisplay-after-commands t
      :redisply-function with a function
      :incremental-redisplay nil.

Everything works fine when I use the dw:default-command-top-level 
instead of my own toplevel function. Does anyone know what I should
do in my read-eval-print loop? 

Yasuaki Honda
honda%is.titech.junet%utokyo-relay.csnet@RELAY.CS.NET