diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 2020db746f7..05cebd2a5c5 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2009-01-05  Juanma Barranquero  <lekktu@gmail.com>
+
+	* desktop.el (desktop-save-in-desktop-dir): Use `abbreviate-file-name'
+	to shorten the desktop file directory shown in message.
+
 2009-01-05  Glenn Morris  <rgm@gnu.org>
 
 	* version.el (emacs-copyright):
diff --git a/lisp/desktop.el b/lisp/desktop.el
index 1189e150296..443d4ffee64 100644
--- a/lisp/desktop.el
+++ b/lisp/desktop.el
@@ -1047,7 +1047,7 @@ directory DIRNAME."
   (if desktop-dirname
       (desktop-save desktop-dirname)
     (call-interactively 'desktop-save))
-  (message "Desktop saved in %s" desktop-dirname))
+  (message "Desktop saved in %s" (abbreviate-file-name desktop-dirname)))
 
 ;; ----------------------------------------------------------------------------
 ;;;###autoload