                     (editable-list :inline t
                                    (cons :format "%v"
                                          ,(widget-get widget :key-type)
-                                         ,(widget-get widget :value-type))))))
+                                         ,value-type)))))
     widget))
 
 (defvar svn-global-keymap nil "Global keymap for psvn.el.

    (defsubst match-string-no-properties (match)
      (buffer-substring-no-properties (match-beginning match) (match-end match)))))

(if (get 'alist 'widget-type)
    (define-widget 'svn-alist 'alist
      "An association list.
Use this instead of `alist', for XEmacs 21.4 compatibility.")

    :key-type 'sexp
    :value-type 'sexp)
  (defun svn-alist-convert-widget (widget)
    (let* ((value-type (widget-get widget :value-type))
           (option-widgets (loop for option in (widget-get widget :options)
                             collect `(cons :format "%v"
