--- a/MiniLogger.st	Tue Nov 18 15:45:10 2014 +0100
+++ b/MiniLogger.st	Tue Nov 18 16:09:38 2014 +0100
@@ -12,18 +12,18 @@
 "{ Package: 'stx:libbasic' }"
 
 Object subclass:#MiniLogger
-        instanceVariableNames:''
-        classVariableNames:'ALL ENTER LEAVE TRACE3 TRACE2 TRACE1 TRACE0 TRACE DEBUG INFO WARN
-                ERROR FATAL NONE Severities Threshold Instance'
-        poolDictionaries:''
-        category:'System-Debugging-Support'
+	instanceVariableNames:''
+	classVariableNames:'ALL ENTER LEAVE TRACE3 TRACE2 TRACE1 TRACE0 TRACE DEBUG INFO WARN
+		ERROR FATAL NONE Severities Threshold Instance'
+	poolDictionaries:''
+	category:'System-Debugging-Support'
 !
 
 Object subclass:#Severity
-        instanceVariableNames:'name value'
-        classVariableNames:''
-        poolDictionaries:''
-        privateIn:MiniLogger
+	instanceVariableNames:'name value'
+	classVariableNames:''
+	poolDictionaries:''
+	privateIn:MiniLogger
 !
 
 !MiniLogger class methodsFor:'documentation'!
@@ -101,9 +101,6 @@
 !MiniLogger class methodsFor:'initialization'!
 
 initialize
-    "Invoked at system start or when the class is dynamically loaded."
-    "/ please change as required (and remove this comment)
-    
     ALL := Severity new initializeWithName:#all value:0.
     ENTER := Severity new initializeWithName:#enter value:10.
     LEAVE := Severity new initializeWithName:#leave value:10.
@@ -133,7 +130,7 @@
     Severities at:11 put:ERROR.
     Severities at:12 put:FATAL.
 
-    Threshold := INFO.
+    Threshold := InfoPrinting ifTrue:[INFO] ifFalse:[WARN].
 
     (Smalltalk at:#Logger) isNil ifTrue:[
         Smalltalk at:#Logger put:self
@@ -665,11 +662,11 @@
 !MiniLogger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.11 2014-10-09 10:26:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.12 2014-11-18 15:09:38 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.11 2014-10-09 10:26:25 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.12 2014-11-18 15:09:38 stefan Exp $'
 !
 
 version_HG
@@ -678,7 +675,7 @@
 !
 
 version_SVN
-    ^ '$Id: MiniLogger.st,v 1.11 2014-10-09 10:26:25 vrany Exp $'
+    ^ '$Id: MiniLogger.st,v 1.12 2014-11-18 15:09:38 stefan Exp $'
 ! !