Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.12211
diff -u -p -c -r1.12211 ChangeLog
*** lisp/ChangeLog	15 Nov 2007 06:04:31 -0000	1.12211
--- lisp/ChangeLog	15 Nov 2007 10:35:10 -0000
***************
*** 1,3 ****
--- 1,7 ----
+ 2007-11-15    <pawel.ostrowski@gmail.com>
+ 
+ 	* abbrev.el (abbrev--write): use (symbol-name) to write abbrev name. 
+ 
  2007-11-15  Jay Belanger  <jay.p.belanger@gmail.com>
  
  	* calc/calc-menu.el: New file.
Index: lisp/abbrev.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/abbrev.el,v
retrieving revision 1.62
diff -u -p -c -r1.62 abbrev.el
*** lisp/abbrev.el	9 Nov 2007 16:07:17 -0000	1.62
--- lisp/abbrev.el	15 Nov 2007 10:35:11 -0000
*************** Only writes the non-system abbrevs.
*** 825,831 ****
  Presumes that `standard-output' points to `current-buffer'."
    (unless (or (null (symbol-value sym)) (abbrev-get sym :system))
      (insert "    (")
!     (prin1 sym)
      (insert " ")
      (prin1 (symbol-value sym))
      (insert " ")
--- 825,831 ----
  Presumes that `standard-output' points to `current-buffer'."
    (unless (or (null (symbol-value sym)) (abbrev-get sym :system))
      (insert "    (")
!     (prin1 (symbol-name sym))
      (insert " ")
      (prin1 (symbol-value sym))
      (insert " ")