CurrPage.CLOSE

I know there are some other discussions about CurrPage.CLOSE not working in the OnOpenPage trigger but as far as I can figure out it doesn't work anywhere, except on actions. It seems that CurrPage.UPDATE has the same problem which raises the question if any of the CurrPage commands actually work.

My problem stems from the fact that I need to close a page from code without user intervention. In this example the page should close 2 seconds after being opened. If you remove the CurrPage.CLOSE the page should continually show the current time on the page - it doesn't.

The f.CREATEs are a debug tool to convince me that the code is actually running - which it is.

OBJECT Page 99999 CurrPage.CLOSE
{
  OBJECT-PROPERTIES
  {
  }
  PROPERTIES
  {
    Editable=No;
    PageType=Card;
    OnOpenPage=BEGIN
                 f.CREATE('c:\started.txt');
                 f.CLOSE;

                 CREATE(timer);
                 timer.Interval(2000);
                 timer.Enabled(TRUE);
               END;

  }
  CONTROLS
  {
    { 1000000002;0;Container;
                ContainerType=ContentArea }

    { 1000000001;1;Group  ;
                GroupType=Group }

    { 1000000003;2;Field  ;
                SourceExpr=TIME }

  }
  CODE
  {
    VAR
      timer@1000000004 : Automation "{3B311C81-140E-11D5-8B18-00D0590B4EC5} 1.0:{3B311C92-140E-11D5-8B18-00D0590B4EC5}:'Navision Timer 1.0'.Timer" WITHEVENTS;
      f@1000000005 : File;

    PROCEDURE dostuff@1000000000();
    BEGIN
      f.CREATE('c:\ended.txt');
      f.CLOSE;

      CurrPage.UPDATE(FALSE);

      CurrPage.CLOSE;
    END;

    EVENT timer@1000000004::Timer@1(Milliseconds@1000000000 : Integer);
    BEGIN
      timer.Enabled(FALSE);
      dostuff;
      timer.Enabled(TRUE);
    END;

    EVENT timer@1000000004::TimerError@2(ErrorString@1000000000 : Text[1024]);
    BEGIN
    END;

    BEGIN
    END.
  }
}

Any ideas for workarounds??