diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 4069719..1a99eb3 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -317,7 +317,8 @@
 	 (with-lock eXid-lock
 	   (lambda ()
 	     (process-set-Xid Xid)
-	     (set! *eXid-cache* (process-user-effective-Xid)))))
+	     (set! *eXid-cache* (process-user-effective-Xid))
+	     (thread-set-eXid! *eXid-cache*))))
 
        (define (with-user-effective-Xid* new-eXid thunk)
 	 (let ((changed-eXid