applet 終了中にはサブアプレットを表示できない？

Code:
{import * from CURL.ENGINE.BROWSER}

{do

    ||アプリケーション終了時にログアウト処理を登録する

    {register-exit-proc

        {fn =>

            def a = 0

            {try

                {SplashScreen.setup

                    title = "Existing Applet ...",

                    footer = "Test Example ..."

                }

                || indeterminateなプログレスバーを表示します。

                {SplashScreen.set-progress-bar-indeterminate}

                || 作業が終わるまで2秒必要と仮定しています。

                {sleep 2s}

                {SplashScreen.set-progress-bar  max = 10.0}

                {sleep 1s}

                || ループに入り、ループの中でスリープし、

                || なんらかの作業をしているような状態にします。

                let val:double = 0

                {for i = 0 below 50 do

                    set val = val + 0.2

                    {SplashScreen.set-progress-bar-value val}

                    {sleep 0.1s}

                }

                || 完了したので、スプラッシュスクリーンを破棄します。

                {SplashScreen.destroy}

             catch ex:Exception do

                {popup-message ex.message}

            }

        }

    }

}