--- a/MiniLogger.st	Wed Mar 01 10:59:59 2017 +0100
+++ b/MiniLogger.st	Wed Mar 01 11:05:22 2017 +0100
@@ -19,8 +19,8 @@
 	instanceVariableNames:''
 	classVariableNames:'ALL DEBUG ENTER ERROR FATAL INFO Instance LEAVE LogFormat
 		LogOnStderr LogOnTranscript NONE Severities TRACE TRACE0 TRACE1
-		TRACE2 TRACE3 WARN WARNING Threshold ThresholdPerClass
-		ThresholdPerPackage TimestampFormat'
+		TRACE2 TRACE3 Threshold ThresholdPerClass ThresholdPerPackage
+		TimestampFormat WARN WARNING'
 	poolDictionaries:''
 	category:'System-Debugging-Support'
 !
@@ -404,6 +404,18 @@
     ].
     ThresholdPerClass at:aClass theNonMetaclass name put:aLimitOrNil.
 
+    "
+     Logger severityThresholdOf: Object
+     Logger severityThresholdOf: Expecco::Browser
+
+     Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
+     Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
+     Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'.
+
+     Logger loggingThreshold:nil forClass:(Expecco::Browser).
+     Logger loggingThreshold:nil forPackage:'stx:libbasic'.
+    "
+
     "Created: / 01-03-2017 / 10:52:25 / cg"
 !
 
@@ -431,6 +443,18 @@
     ].
     ThresholdPerPackage at:aPackageName put:aLimitOrNil.
 
+    "
+     Logger severityThresholdOf: Object
+     Logger severityThresholdOf: Expecco::Browser
+
+     Logger loggingThreshold:(Logger severityDEBUG) forClass:(Expecco::Browser).
+     Logger loggingThreshold:(Logger severityDEBUG) forPackage:'stx:libbasic'.
+     Logger loggingThreshold:(Logger severityDEBUG) forPackage:'exept:workflow'.
+
+     Logger loggingThreshold:nil forClass:(Expecco::Browser).
+     Logger loggingThreshold:nil forPackage:'stx:libbasic'.
+    "
+
     "Created: / 01-03-2017 / 10:53:42 / cg"
 ! !