           (when pos
             (svn-update-status-flag pos ?\  ?\ )
             (svn-update-status-msg pos "Committed"))
-          (when file-buffer
+          (when (and file-buffer (fboundp 'vc-svn-workfile-version))
             (with-current-buffer file-buffer
               ;; Use buffer-file-name instead of path to get the
               ;; canonical file name used by vc

;;	Mattias Engdegrd <mattias@virtutech.com>
;; Maintainer: David Kgedal <david@virtutech.com>
;; Created: 27 Jan 2006
;; Version: 1.0
;; Keywords: docs

;; This program is free software; you can redistribute it and/or

                      (insert "         Top-level directory:")
                    (insert "         Directory " dir ":"))
                  (newline)
		  ;; Next line only needed on XEmacs
		  (remove-text-properties start (point) '(svn-file nil))
                  (add-text-properties start (point)
                                       (list 'face 'bold
                                             'svn-dir dir))))))
          (forward-line 1))))))

