diff --git a/scsh/scsh.scm b/scsh/scsh.scm
index eef2181..5245f5c 100644
--- a/scsh/scsh.scm
+++ b/scsh/scsh.scm
@@ -928,7 +928,8 @@
 	   (maybe-push
 	    (if new-command-level?
 		(lambda (thunk)
-		  (push-command-level thunk 'forking))
+		  (push-command-level (preserve-thread-fluids thunk)
+				      'forking))
 		(lambda (thunk) (thunk)))))
        (maybe-push
 	(lambda ()