From 9f364cbcd1f8c82a3fa8214aa9161615f7bcb7f4 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <zecke@selfish.org>
Date: Thu, 14 Apr 2011 12:39:18 +0200
Subject: [PATCH] syslog: Fix the level for the custom exception method

---
 LogSyslog.st | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

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.
     ]