--- a/MiniLogger.st	Tue Sep 23 22:49:18 2014 +0200
+++ b/MiniLogger.st	Thu Sep 25 11:04:32 2014 +0200
@@ -488,18 +488,24 @@
 !
 
 warning: message
-    WARNING value < Threshold value ifTrue:[ ^ self ].
-    self log: message severity: WARNING
+    WARN value < Threshold value ifTrue:[ ^ self ].
+    self log: message severity: WARN
+
+    "Modified: / 25-09-2014 / 10:04:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 warning: format with: arg1
-    WARNING value < Threshold value ifTrue:[ ^ self ].
-    self log: (format bindWith: arg1) severity: WARNING
+    WARN value < Threshold value ifTrue:[ ^ self ].
+    self log: (format bindWith: arg1) severity: WARN
+
+    "Modified: / 25-09-2014 / 10:04:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 warning: format with: arg1 with: arg2
-    WARNING value < Threshold value ifTrue:[ ^ self ].
-    self log: (format bindWith: arg1 with: arg2) severity: WARNING
+    WARN value < Threshold value ifTrue:[ ^ self ].
+    self log: (format bindWith: arg1 with: arg2) severity: WARN
+
+    "Modified: / 25-09-2014 / 10:04:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !MiniLogger class methodsFor:'private'!
@@ -584,11 +590,11 @@
 !MiniLogger class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $'
 !
 
 version_HG
@@ -597,7 +603,7 @@
 !
 
 version_SVN
-    ^ '$Id: MiniLogger.st,v 1.7 2014-09-22 11:03:26 vrany Exp $'
+    ^ '$Id: MiniLogger.st,v 1.8 2014-09-25 09:04:32 vrany Exp $'
 ! !