--- a/MiniLogger.st	Thu Dec 20 11:48:59 2012 +0000
+++ b/MiniLogger.st	Sat Jan 19 01:30:00 2013 +0000
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#MiniLogger
-	instanceVariableNames:'stream'
+	instanceVariableNames:''
 	classVariableNames:'Instance'
 	poolDictionaries:''
 	category:'System-Debugging-Support'
@@ -61,23 +61,6 @@
     "Created: / 01-09-2011 / 12:26:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-!MiniLogger methodsFor:'initialization'!
-
-initializeStream
-
-    Stderr isOpen ifTrue:[
-        stream := Stderr.        
-        ^self.
-    ].
-    Stdout isOpen ifTrue:[
-        stream := Stdout.
-        ^self.
-    ].
-    stream := 'smalltalkx.log' asFilename writeStream.
-
-    "Created: / 10-12-2011 / 00:11:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
 !MiniLogger methodsFor:'logging'!
 
 facilityOf: originator
@@ -118,7 +101,7 @@
 
 log: message severity: severity
 
-    self log: message severity: severity originator: thisContext sender receiver
+    self log: message severity: #debug originator: thisContext sender receiver
 
     "Created: / 15-09-2011 / 10:25:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -128,7 +111,7 @@
     | originator |
     originator := thisContext sender receiver.
 
-    self log: message severity: severity facility: (self facilityOf: originator) originator: originator attachment: attachment
+    self log: message severity: #debug facility: (self facilityOf: originator) originator: originator attachment: attachment
 
     "Created: / 15-09-2011 / 11:47:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
@@ -148,13 +131,10 @@
 !
 
 log: message severity: severity facility: facility originator: originator attachment: attachment
+
     "Pricipal logging method. This mimics VM __stxLog__()"
 
-    | ts |
-
-    stream isNil ifTrue:[self initializeStream].
-
-    stream
+    Stderr 
         nextPutAll: facility ? 'STX';
         space;
         nextPut:$[;
@@ -162,27 +142,12 @@
         nextPut:$];
         space.
 
-    stream nextPut:$(.
-
-    "Ugly code but much faster"
-    ts := Timestamp now.
-    (ts year - 2000) printOn: stream.
-    stream nextPut: $-.
-    ts month printOn: stream base: 10 size:2 fill:$0.
-    stream nextPut: $-.
-    ts day printOn: stream base: 10 size:2 fill:$0.
-    stream space.
-    ts hour printOn: stream base: 10 size:2 fill:$0.
-    stream nextPut: $:.
-    ts minute printOn: stream base: 10 size:2 fill:$0.
-    stream nextPut: $:.
-    ts second printOn: stream base: 10 size:2 fill:$0.
-    stream nextPut:$).
-
-    stream space.
-    stream nextPutAll: message.
-    stream cr.
-    stream flush.
+    Stderr nextPut:$(.
+    Timestamp now printOn:Stderr format:'%(year)-%(mon)-%(day) %h:%m:%s'.
+    Stderr nextPut:$).
+    Stderr space.
+    Stderr nextPutAll: message.
+    Stderr cr.
 
     "
         Logger log:'test message' severity: #debug facility: 'TEST'
@@ -200,8 +165,16 @@
 
 !MiniLogger class methodsFor:'documentation'!
 
+version
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.1 2011-10-31 16:06:38 vrany Exp $'
+!
+
+version_CVS
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.1 2011-10-31 16:06:38 vrany Exp $'
+!
+
 version_SVN
-    ^ '$Id: MiniLogger.st 10827 2012-07-20 13:32:04Z vranyj1 $'
+    ^ '§Id: MiniLogger.st 10688 2011-09-15 11:05:35Z vranyj1 §'
 ! !
 
 MiniLogger initialize!