--- a/MiniLogger.st	Sat Oct 01 20:38:20 2016 +0200
+++ b/MiniLogger.st	Mon Oct 03 11:08:27 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2012-2014 by Jan Vrany & eXept Software AG
               All Rights Reserved
@@ -16,7 +18,8 @@
 Object subclass:#MiniLogger
 	instanceVariableNames:''
 	classVariableNames:'ALL DEBUG ENTER ERROR FATAL INFO Instance LEAVE NONE Severities
-		TRACE TRACE0 TRACE1 TRACE2 TRACE3 Threshold WARN WARNING'
+		TRACE TRACE0 TRACE1 TRACE2 TRACE3 Threshold WARN WARNING
+		LogOnTranscript LogOnStderr'
 	poolDictionaries:''
 	category:'System-Debugging-Support'
 !
@@ -141,6 +144,22 @@
     ].
 
     "Modified: / 13-08-2014 / 14:36:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+logOnStderr 
+    ^ LogOnStderr ? true
+!
+
+logOnStderr:aBoolean 
+    LogOnStderr := aBoolean
+!
+
+logOnTranscript
+    ^ LogOnTranscript ? true
+!
+
+logOnTranscript:aBoolean
+    LogOnTranscript := aBoolean
 ! !
 
 !MiniLogger class methodsFor:'accessing-severities'!
@@ -317,6 +336,8 @@
 
     | severityXlated messageXlated |
 
+    (self logOnStderr or:[self logOnTranscript]) ifFalse:[^ self].
+
     severityXlated := severity.
 
     "/ Be backward compatible, allow for symbolic severities
@@ -362,9 +383,13 @@
     severityXlated value < Threshold value ifTrue:[ ^ self ].
     messageXlated := message value asString.
 
-    self log: messageXlated severity: severityXlated facility: facility originator: originator attachment: attachment on:Stderr.
-    (Transcript isView) ifTrue:[ 
-        self log: messageXlated severity: severityXlated facility: facility originator: originator attachment: attachment on:Transcript
+    self logOnStderr ifTrue:[
+        self log: messageXlated severity: severityXlated facility: facility originator: originator attachment: attachment on:Stderr.
+    ].
+    self logOnTranscript ifTrue:[
+        (Transcript isView) ifTrue:[ 
+            self log: messageXlated severity: severityXlated facility: facility originator: originator attachment: attachment on:Transcript
+        ].
     ].
 
     "