   (let ((st-info svn-status-info)
         (svn-status-ui-information (make-hash-table :test 'equal)))
     (while st-info
-      (puthash (svn-status-line-info->filename (car st-info))
-               (svn-status-line-info->ui-status (car st-info))
-               svn-status-ui-information)
+      (svn-puthash (svn-status-line-info->filename (car st-info))
+                   (svn-status-line-info->ui-status (car st-info))
+                   svn-status-ui-information)
       (setq st-info (cdr st-info)))
     svn-status-ui-information))
 

                  (if pos
                      (progn
                        (goto-char pos)
                        (delete-region (point-at-bol) (point-at-eol))
                        (svn-insert-line-in-status-buffer (car st-info))
                        (delete-char 1))
                    (message "psvn: file %s not found, updating %s buffer content..."

                       'svn-status-directory-face
                       'svn-status-filename-face)))
        (elide-hint (if (svn-status-line-info->show-user-elide-continuation line-info) " ..." "")))
    (svn-puthash (svn-status-line-info->filename line-info)
                 (point)
                 svn-status-filename-to-buffer-position-cache)
    (insert (svn-status-maybe-add-face
             (svn-status-line-info->has-usermark line-info)
             (concat usermark
