From 73092cb7331ec138e034f3fe439c1a1e98c0f7bf Mon Sep 17 00:00:00 2001
From: mainzelm <mainzelm>
Date: Fri, 10 May 2002 07:24:37 +0000
Subject: [PATCH] Adjust the test for exec-path-list.

---
 scsh/test/env-test-code.scm | 2 +-
 scsh/test/test-packages.scm | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/scsh/test/env-test-code.scm b/scsh/test/env-test-code.scm
index 2d3cb77..e29b47a 100644
--- a/scsh/test/env-test-code.scm
+++ b/scsh/test/env-test-code.scm
@@ -181,7 +181,7 @@
 ; checks if exec-path-list is a string-list
 ; OK 2001-04-09 15:45
 (define (exec-path-list-test)
-  (string-list? (fluid exec-path-list)))
+  (string-list? (thread-fluid exec-path-list)))
 
 
 ; OK 2001-04-09 15:45
diff --git a/scsh/test/test-packages.scm b/scsh/test/test-packages.scm
index 86b2140..4870645 100644
--- a/scsh/test/test-packages.scm
+++ b/scsh/test/test-packages.scm
@@ -43,7 +43,7 @@
    add-after-test)
   (open scsh
 	scheme
- 	fluids
+ 	thread-fluids
 	list-lib
 	string-lib)
   (files env-test-code))