From 07f796459e3f642da766750916e8499d5914ea5c Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Tue, 29 Jan 2002 08:12:09 +0000
Subject: [PATCH] Align the resource before changing it in with-resource*.

---
 scsh/scsh.scm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index 8f7e40d..35da464 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -181,6 +181,7 @@
 	(let ((changed-dir #f))		
 	  (with-lock resource-lock
 		     (lambda ()
+		       (align-resource!)
 		       (change-and-cache dir)
 		       (set! changed-dir (cache-value))))
 	  (let-resource changed-dir thunk)))