diff lisp-new/ess-vars.el lisp/ess-vars.el
292,300c292
< ;(defvar ess-dump-filename-prefix ""
< (defvar ess-dump-filename-prefix (concat (user-login-name) ".")
<   "*Filename prefix for dumped objects.")
< ;;; The default prefixes filenames with your login name (followed by a
< ;;; period), so as not to clash with other users if you are using a
< ;;; shared directory.  Don't bother uniquifying if using your own
< ;;; directory(ies): (setq ess-dump-filename-prefix "")
< 
< (defvar ess-dump-filename-template (concat ess-dump-filename-prefix "%s.S")
---
> (defvar ess-dump-filename-template (concat (user-login-name) ".%s.S")
303c295
< ;;; This gives filenames like `(prefix)foofun.S', so as not to clash with
---
> ;;; This gives filenames like `user.foofun.S', so as not to clash with
308a301
> 
diff lisp-new/essd-els.el lisp/essd-els.el
50,51c50,51
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-omg.el lisp/essd-omg.el
51,52c51,52
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-r.el lisp/essd-r.el
51,52c51,52
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-s3.el lisp/essd-s3.el
47,48c47,48
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-s4.el lisp/essd-s4.el
52,53c52,53
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-sp3.el lisp/essd-sp3.el
51,52c51,52
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-sp4.el lisp/essd-sp4.el
59,60c59,60
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
96,97c96,97
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-sp5.el lisp/essd-sp5.el
58,59c58,59
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
94,95c94,95
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."
diff lisp-new/essd-sta.el lisp/essd-sta.el
51,52c51,52
<     (ess-dump-filename-template    . (concat ess-dump-filename-prefix
< 					     "%s."
---
>     (ess-dump-filename-template    . (concat (user-login-name)
> 					     ".%s."