lib/sekka/convert-jisyo.nnd in sekka-1.5.2 vs lib/sekka/convert-jisyo.nnd in sekka-1.5.3

@@ -73,10 +73,10 @@
       roman-list)
      (list (cons (+ key okuri) value)))))
 
 (define (expand-okuri-ari-entry key okuri value)
   (cond
-   ((eq? "t" okuri)
+   ((equal? "t" okuri)
     (append-map (lambda (x) x)
                 (list
                  (expand-okuri-ari-entry-internal key okuri                value)
                  (expand-okuri-ari-entry-internal key (sekka-upcase "@")   value)
                  (expand-okuri-ari-entry-internal key (sekka-upcase ";")   value))))