Index: common.scm
==================================================================
--- common.scm
+++ common.scm
@@ -1962,11 +1962,11 @@
 	(let* ((proc   (lambda ()
 			 (let loop ((numcpu 0)
 				    (inl    (read-line)))
 			   (if (eof-object? inl)
 			       (begin
-				 (common:write-cached-info remote-host "num-cpus" numcpu)
+				 (common:write-cached-info actual-host "num-cpus" numcpu)
 				 numcpu)
 			       (loop (if (string-match "^processor\\s+:\\s+\\d+$" inl)
 					 (+ numcpu 1)
 					 numcpu)
 				     (read-line))))))