diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 7e5245fcc6..9765820836 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -31,6 +31,7 @@ (define-module (guix build syscalls)
             MS_MOVE
             mount
             umount
+            mount-points
             swapon
             swapoff
             processes
@@ -166,6 +167,18 @@ (define umount
         (when update-mtab?
           (remove-from-mtab target))))))
 
+(define (mount-points)
+  "Return the mounts points for currently mounted file systems."
+  (call-with-input-file "/proc/mounts"
+    (lambda (port)
+      (let loop ((result '()))
+        (let ((line (read-line port)))
+          (if (eof-object? line)
+              (reverse result)
+              (match (string-tokenize line)
+                ((source mount-point _ ...)
+                 (loop (cons mount-point result))))))))))
+
 (define swapon
   (let* ((ptr  (dynamic-func "swapon" (dynamic-link)))
          (proc (pointer->procedure int ptr (list '* int))))
diff --git a/tests/syscalls.scm b/tests/syscalls.scm
index 161e036e19..d65ec82740 100644
--- a/tests/syscalls.scm
+++ b/tests/syscalls.scm
@@ -44,6 +44,9 @@ (define-module (test-syscalls)
       ;; Both return values have been encountered in the wild.
       (memv (system-error-errno args) (list EPERM ENOENT)))))
 
+(test-assert "mount-points"
+  (member "/" (mount-points)))
+
 (test-assert "swapon, ENOENT/EPERM"
   (catch 'system-error
     (lambda ()