# HG changeset patch
# User Vin Shelton <acs@xemacs.org>
# Date 1415647219 18000
# Node ID 0303baa7c4e9b2db8c146a914d7599e6c0fd3bdc
# Parent  4d7032d36975573c2f8644fbb4e8d72ef424ba3b# Parent  a3234d587dc2a55b1c71fd1b7c79891e65dd7d6e
Committed Mike Sperber's change from earlier today.

diff -r 4d7032d36975 -r 0303baa7c4e9 lisp/ChangeLog
--- a/lisp/ChangeLog	Mon Nov 10 13:43:46 2014 -0500
+++ b/lisp/ChangeLog	Mon Nov 10 14:20:19 2014 -0500
@@ -1,3 +1,8 @@
+2014-11-10  Michael Sperber  <mike@xemacs.org>
+
+	* custom.el (custom-add-package-version): The car of a
+	:package-version is a symbol, not a string.
+
 2014-10-11  Stephen J. Turnbull  <stephen@xemacs.org>
 
 	* mule/korea-util.el (korean-key-bindings): 
diff -r 4d7032d36975 -r 0303baa7c4e9 lisp/custom.el
--- a/lisp/custom.el	Mon Nov 10 13:43:46 2014 -0500
+++ b/lisp/custom.el	Mon Nov 10 14:20:19 2014 -0500
@@ -523,9 +523,9 @@
 (defun custom-add-package-version (symbol version)
   "To the custom option SYMBOL add the package version VERSION."
   (unless (and (consp version)
-	       (stringp (car version))
+	       (symbolp (car version))
 	       (stringp (cdr version)))
-        (error "Invalid package version `%s'" value))
+        (error "Invalid package version `%s'" version))
   (put symbol 'custom-package-version version))
 
 (defun custom-add-load (symbol load)