diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index 969916b..8778455 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -314,23 +314,6 @@
           (documentation "Run slurmd.")
           (requirement '(
             user-processes
-;            file-system-/sys/fs/cgroup/blkio
-;            file-system-/sys/fs/cgroup/cpu
-;            file-system-/sys/fs/cgroup/cpuset
-;            file-system-/sys/fs/cgroup/devices
-;            file-system-/sys/fs/cgroup/memory
-;            file-system-/sys/fs/cgroup/pids
-;            file-system-/sys/fs/cgroup/cpuacct
-;            file-system-/sys/fs/cgroup/freezer
-;            file-system-/sys/fs/cgroup/hugetlb
-;            file-system-/sys/fs/cgroup/net_cls
-;            file-system-/sys/fs/cgroup/net_prio
-;            file-system-/sys/fs/cgroup/perf_event
-;            file-system-/sys/fs/cgroup/pids
-;            file-system-/sys/fs/cgroup/rdma
-;            file-system-/sys/fs/cgroup/unified
-;            file-system-/sys/fs/cgroup/networking
-;            file-system-/sys/fs/cgroup/udev
           ))
           (respawn? #t)
           (start #~(make-forkexec-constructor
diff --git a/glicid/system/file-systems.scm b/glicid/system/file-systems.scm
index 252d134..b84d395 100644
--- a/glicid/system/file-systems.scm
+++ b/glicid/system/file-systems.scm
@@ -3,7 +3,7 @@
   #:export (%control-groups)
 )
 
-(define %control-groups
+(define %cgroups
   (let
     ((parent (file-system
       (device "cgroup")