@@ -141,11 +141,11 @@
 ;;     (print "COMMON:   " (string-intersperse common-parts "\n       "))
     (string-intersperse final separator)))
 
 (define (env:process-path-envvar varname separator patha pathb)
   (let ((newpath (env:merge-path-envvar separator patha pathb)))
-    (setenv varname newpath)))
+    (set-environment-variable! varname newpath)))
 
 (define (env:have-context db context)
   (> (query fetch-value (sql db "SELECT count(id) FROM envvars WHERE context=?") context)
      0))