@@ -1644,12 +1644,12 @@
 ;;   (let loop ((x 0))
 ;;     (print x "," (common:get-delay x 1))
 ;;     (if (< x 2)
 ;; 	(loop (+ x 0.1)))))
 
-(define (get-cpu-load #!key (remote-host #f))
-  (car (common:get-cpu-load remote-host)))
+;; (define (get-cpu-load #!key (remote-host #f))
+;;    (car (common:get-cpu-load remote-host)))
 
 ;;======================================================================
 ;;   (let* ((load-res (process:cmd-run->list "uptime"))
 ;; 	 (load-rx  (regexp "load average:\\s+(\\d+)"))
 ;; 	 (cpu-load #f))