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