aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorHolger Hans Peter Freyther <zecke@selfish.org>2011-04-14 12:39:18 +0200
committerHolger Hans Peter Freyther <zecke@selfish.org>2011-04-14 12:39:18 +0200
commit9f364cbcd1f8c82a3fa8214aa9161615f7bcb7f4 (patch)
tree0c3304f438863afb87af02e6f04fb1019b6de6b6
parente3a90ff2d36a395184d8e3971a1f4f6c7560acde (diff)
syslog: Fix the level for the custom exception method
-rw-r--r--LogSyslog.st4
1 files changed, 3 insertions, 1 deletions
diff --git a/LogSyslog.st b/LogSyslog.st
index ee3bced..f3f1013 100644
--- a/LogSyslog.st
+++ b/LogSyslog.st
@@ -82,7 +82,9 @@ LogTarget subclass: LogTargetSyslog [
]
exception: aMessage [
- self class c_syslog: aMessage level fmt: '%s%s'
+ | level |
+ level := self class logLevelMap at: aMessage level.
+ self class c_syslog: level fmt: '%s%s'
args: {self prefix. 'EXCEPTION occured'}.
self print: aMessage.
]