            (if file
              (do
                (.debug logger (str "file modified: " fn))
-               (let [ra (RandomAccessFile. (str (:un-dir config) fn))]
+               (let [ra (RandomAccessFile. (str (:un-dir config) fn) "r")]
                  (.seek ra (:length file))
                  (loop [line (.readLine ra)]
                    (if line

                                           (:turns data)
                                           (:death data))
                                   120)
            url (twitter/shorten-url (format "http://un.nethack.nu/users/%s/dumps/%s.%s.txt.html"
                                             (:name data)
                                             (:name data)
                                             (:endtime data)))

    
    :killed_uniq (str (:player data) " killed " (:killed_uniq data) " after " (:turns data) " turns.")
    
    :killed_shopkeeper (str (:player data) " killed the shopkeeper "
                            (:killed_shopkeeper data) " after " (:turns data) " turns")
    
    :shoplifted (format "%s stole %s zorkmids worth of merchandise from %s %s after %s turns"
                        (:player data)
                        (:shoplifted data)
                        (possessive (:shopkeeper data))
                        (:shop data)
                        (:turns data))
