diff --git a/.fixme-new/config b/.fixme-new/config
index 0c993698..cf53e09f 100644
--- a/.fixme-new/config
+++ b/.fixme-new/config
@@ -74,3 +74,4 @@ fixme-comments ";" "--"
 refchan 3WtddmcE8zzgBAPR7Bu7mKMaVMTN423NNXSPUJp3Hx42
 source ./refchan.local
 
+
diff --git a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
index 196417eb..ba56a7d2 100644
--- a/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
+++ b/miscellaneous/suckless-conf/lib/Data/Config/Suckless/Script/Internal.hs
@@ -42,6 +42,7 @@ import Data.Map qualified as Map
 import Data.Kind
 import Data.List (isPrefixOf)
 import Data.List qualified as List
+import Data.List ((\\))
 import Data.Maybe
 import Data.Either
 import Data.String
@@ -64,6 +65,7 @@ import System.Directory qualified as Dir
 import System.FilePath.Posix as P
 import Text.InterpolatedString.Perl6 (qc)
 import UnliftIO
+import Control.Monad.Trans.Cont
 
 -- TODO: move-to-suckless-conf
 
@@ -1760,6 +1762,26 @@ internalEntries = do
             formattedTime = formatTime defaultTimeLocale fmt utcTime
         pure $ mkStr formattedTime
 
+      _ -> pure $ mkSym  ""
+
+
+    entry $ bindMatch "forked" $ \case
+      [ e ] -> do
+        env <- ask
+        po <- pwd
+        oe <- liftIO $ getEnvironment
+        lift do
+          flip runContT pure do
+
+            a <- ContT $ withAsyncBound $ do
+                    runEval env [e]
+
+            r <- wait a
+
+            cd po
+            restoreEnvironment oe
+            pure r
+
       _ -> throwIO $ BadFormException @c nil
 
 
@@ -1900,3 +1922,11 @@ asSym = \case
   other      -> pretty other
 
 
+restoreEnvironment :: MonadIO  m => [(String, String)] -> m ()
+restoreEnvironment newEnv = liftIO do
+    currentEnv <- getEnvironment
+    let toRemove = map fst currentEnv \\ map fst newEnv
+    mapM_ unsetEnv toRemove
+    mapM_ (uncurry setEnv) newEnv
+
+