* compiles again ( .logger.info references changes to application.log())

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@16501 3ad0048d-3df7-0310-abae-a5850022a9f2

1 files changed, 2 insertions, 2 deletions

diff --git a/packages/fcl-base/examples/daemon.pp b/packages/fcl-base/examples/daemon.pp
index 5c7a0f2099..b74165fa8f 100644
--- a/packages/fcl-base/examples/daemon.pp
+++ b/packages/fcl-base/examples/daemon.pp
@@ -49,14 +49,14 @@ begin
   Repeat
     Sleep(1000);
     inc(c);
-    Application.Logger.Info(Format('Tick : %d',[C]));
+    Application.Log(etcustom,Format('Tick : %d',[C]));
   Until Terminated;
 end;
 
 Procedure AWriteln(MSg : String; B : Boolean);
 
 begin
-  Application.Logger.Info(Msg+BoolToStr(B));
+  Application.Log(etcustom,Msg+BoolToStr(B));
 end;
 
 { TTestDaemon }