Index: emergency-patch-2.scm
==================================================================
--- emergency-patch-2.scm
+++ emergency-patch-2.scm
@@ -1,5 +1,6 @@
+(include "test_records.scm")
 
 (define (common:wait-for-cpuload maxload numcpus waitdelay #!key (count 1000) (msg #f)(remote-host #f))
   (let* ((loadavg (common:get-cpu-load remote-host))
 	 (first   (car loadavg))
 	 (next    (cadr loadavg))