diff --git a/scsh/syslog.scm b/scsh/syslog.scm
index ae5c752..466232d 100644
--- a/scsh/syslog.scm
+++ b/scsh/syslog.scm
@@ -229,13 +229,13 @@
 	(facility (list-ref-carefully rest 2 #f))
 	(mask (list-ref-carefully rest 3 #f)))
     (make-syslog-channel (or ident
-			     (syslog-channel-ident ident))
+			     (syslog-channel-ident channel))
 			 (or options
-			     (syslog-channel-options options))
+			     (syslog-channel-options channel))
 			 (or facility
-			     (syslog-channel-facility facility))
+			     (syslog-channel-facility channel))
 			 (or mask
-			     (syslog-channel-mask mask)))))
+			     (syslog-channel-mask channel)))))
 
 (define dynamic-syslog-channel
   (make-thread-fluid