diff --git a/radix/system/monitoring.scm b/radix/system/monitoring.scm
index ec641ff..28a4905 100644
--- a/radix/system/monitoring.scm
+++ b/radix/system/monitoring.scm
@@ -55,10 +55,11 @@
          lines)))
 
 (define (ram-total)
+  "Returns the total available ram in bytes."
   (call-with-input-file "/proc/meminfo"
     (lambda (port)
       (let ((_ (read port)))
-        (read port)))))
+        (* 1000 (read port))))))
 
 (define (current-ram-usage)
   (apply - (map (cut assoc-ref (current-memory-info) <>)