diff --git a/contrib/emacs/fricas.el b/contrib/emacs/fricas.el
index 070b83ac..9c19b946 100644
--- a/contrib/emacs/fricas.el
+++ b/contrib/emacs/fricas.el
@@ -688,7 +688,7 @@ See `comint-dynamic-complete-filename'. Returns t if successful."
(dirsuffix (cond ((not comint-completion-addsuffix)
"")
((not (consp comint-completion-addsuffix))
- (char-to-string directory-sep-char))
+ (char-to-string ?/))
(t
(car comint-completion-addsuffix))))
(filesuffix (cond ((not comint-completion-addsuffix)