zabbix.scm: Fix channel equality check.HEADmaster

* zabbix.scm (main): Fix channel equality check.

1 files changed, 3 insertions, 3 deletions

diff --git a/zabbix.scm b/zabbix.scm
index 618f796..ce81aab 100644
--- a/zabbix.scm
+++ b/zabbix.scm
@@ -134,8 +134,8 @@ newspace."
                      (remote-channels remote))))))
     (('diff name)
      (map (lambda (local remote)
-            (if (string=? name (symbol->string (channel-name local)))
-                (begin (display 0) (exit 1))
-                (begin (display 1) (exit 0))))
+            (if (equal? local remote)
+                (begin (display 1) (exit 0))
+                (begin (display 0) (exit 1))))
           (channels profile)
           (remote-channels remote)))))