@@ -297,13 +297,13 @@
 	     (filter (lambda (x)
 		       (not (string-match "^\\s*" x)))
 		     val-list))
 	'())))
 
-(define (get-cpu-load)
+(define (commonmod:get-cpu-load)
   (let* ((load-info (with-input-from-file "/proc/loadavg" read-lines)))
-    (map string->number (string-split load-info))))
+    (map string->number (string-split (car load-info)))))
 
 (define *current-host-cores* #f)
 
 (define (get-current-host-cores)
   (or *current-host-cores*
@@ -325,11 +325,11 @@
      (string->number (read-line)))))
 
 ;; get the normalized (i.e. load / numcpus) for *this* host
 ;;
 (define (get-normalized-cpu-load)
-  (/ (get-cpu-load)(get-current-host-cores)))
+  (/ (commonmod:get-cpu-load)(get-current-host-cores)))
 
 ;;======================================================================
 ;; testsuite and area utilites
 ;;======================================================================