$ cat exit-test.scm
(use exif extras srfi-1)

(let ((exif-info (tag-alist-from-file (car (command-line-arguments)))))
  (and exif-info
       (pp (remove (lambda (item)
                     (equal? (cdr item) ""))
                   exif-info))))


;;; http://parenteses.org/mario/misc/DSC00018.JPG

$ csi -s exif-test.scm DSC00018.JPG 

Error: segmentation violation

        Call history:

        exif.scm:312: ##sys#peek-c-string         
        exif.scm:319: string-trim-right   
        exif.scm:363: g526        
        exif.scm:317: make-string         
        exif.scm:298: g415        
        exif.scm:49: loop         
        exif.scm:312: ##sys#make-c-string         
        exif.scm:312: ##sys#peek-c-string         
        exif.scm:319: string-trim-right   
        exif.scm:363: g526        
        exif.scm:317: make-string         
        exif.scm:298: g415        
        exif.scm:49: loop         
        exif.scm:312: ##sys#make-c-string         
        exif.scm:312: ##sys#peek-c-string         
        exif.scm:319: string-trim-right         <--