--- nfo/perl/libs/Class/Logger.pm	2003/12/16 19:27:32	1.2
+++ nfo/perl/libs/Class/Logger.pm	2003/12/18 18:19:01	1.3
@@ -1,7 +1,10 @@
 ## ------------------------------------------------------------------------
-##  $Id: Logger.pm,v 1.2 2003/12/16 19:27:32 ts-dev Exp $
+##  $Id: Logger.pm,v 1.3 2003/12/18 18:19:01 ts-dev Exp $
 ## ------------------------------------------------------------------------
 ##  $Log: Logger.pm,v $
+##  Revision 1.3  2003/12/18 18:19:01  ts-dev
+##  typo; create instance at startup
+##
 ##  Revision 1.2  2003/12/16 19:27:32  ts-dev
 ##  first check-in
 ##
@@ -38,9 +41,8 @@
   $ENABLE_METHODS
   $METHOD_LEVELS
   $TRACE_STACK_LEVELS
-	$loggerai @EXPORT
+	$logger @EXPORT
 );
-@EXPORT = qw($logger);
 
 # default behaviour
 $LEVEL_DEFAULT = 'debug';
@@ -49,6 +51,8 @@
 $ENABLE_METHODS = 0;
 $METHOD_LEVELS = [3];
 $TRACE_STACK_LEVELS = [];
+$logger = Class::Logger->new();
+@EXPORT = qw($logger);
 
 
 # TODO: review, revise and rewire this!