--- a/MiniLogger.st	Fri Jul 18 17:09:17 2014 +0200
+++ b/MiniLogger.st	Fri Jul 18 17:17:03 2014 +0200
@@ -126,7 +126,22 @@
 log: message severity: severity facility: facility originator: originator attachment: attachment
     "Pricipal logging method. This mimics VM __stxLog__()"
 
-    Stderr 
+    self log: message severity: severity facility: facility originator: originator attachment: attachment on:Stderr.
+    Transcript ~~ Stderr ifTrue:[ 
+        self log: message severity: severity facility: facility originator: originator attachment: attachment on:Transcript
+    ].
+
+    "
+     Logger log:'test message' severity: #debug facility: 'TEST'
+    "
+
+    "Created: / 14-09-2011 / 21:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+log: message severity: severity facility: facility originator: originator attachment: attachment on:aStream
+    "Pricipal logging method. This mimics VM __stxLog__()"
+
+    aStream
         nextPutAll: facility ? 'STX';
         space;
         nextPut:$[;
@@ -134,15 +149,15 @@
         nextPut:$];
         space.
 
-    Stderr nextPut:$(.
-    Timestamp now printOn:Stderr format:'%(year)-%(mon)-%(day) %h:%m:%s'.
-    Stderr nextPut:$).
-    Stderr space.
-    Stderr nextPutAll: message.
-    Stderr cr.
+    aStream nextPut:$(.
+    Timestamp now printOn:aStream format:'%(year)-%(mon)-%(day) %h:%m:%s'.
+    aStream nextPut:$).
+    aStream space.
+    aStream nextPutAll: message.
+    aStream cr.
 
     "
-        Logger log:'test message' severity: #debug facility: 'TEST'
+     Logger log:'test message' severity: #debug facility: 'TEST'
     "
 
     "Created: / 14-09-2011 / 21:18:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"
@@ -158,11 +173,11 @@
 !MiniLogger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.4 2014-07-18 15:17:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.4 2014-07-18 15:17:03 cg Exp $'
 !
 
 version_HG
@@ -171,7 +186,7 @@
 !
 
 version_SVN
-    ^ '$Id: MiniLogger.st,v 1.3 2014-07-18 15:09:17 cg Exp $'
+    ^ '$Id: MiniLogger.st,v 1.4 2014-07-18 15:17:03 cg Exp $'
 ! !