--- syslog.orig/syslog.scm	2011-12-09 13:27:31.000000000 +0100
+++ syslog/syslog.scm	2011-12-09 13:32:16.000000000 +0100
@@ -57,7 +57,7 @@
 
 
 (module syslog
-  (syslog openlog setlogmask closelog log-up-to log-mask
+  (syslog syslog-str openlog setlogmask closelog log-up-to log-mask
           
    prio/info prio/emerg prio/alert prio/crit
    prio/err prio/warning prio/notice prio/debug
@@ -175,6 +175,9 @@
   (define (syslog priority fmt . args)
     ((foreign-lambda* void ((int prio) (c-string msg)) "syslog(prio,\"%s\",msg);") priority (apply sprintf fmt args)))
 
+  (define (syslog-str priority str)
+    ((foreign-lambda* void ((int prio) (c-string msg)) "syslog(prio,\"%s\",msg);") priority str))
+
   (define setlogmask
     (foreign-lambda int "setlogmask" int))