aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gnu/system/vm.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/gnu/system/vm.scm b/gnu/system/vm.scm
index 80a8618729..21d777a3fe 100644
--- a/gnu/system/vm.scm
+++ b/gnu/system/vm.scm
@@ -641,7 +641,10 @@ of the GNU system as described by OS."
(let ((target (file-system-mount-point fs))
(source (file-system-device fs)))
(or (string=? target "/")
- (string-prefix? "/dev/" source))))
+ (and (string? source)
+ (string-prefix? "/dev/" source))
+ (uuid? source)
+ (file-system-label? source))))
(operating-system-file-systems os)))
(define root-uuid