Index: runs.scm
==================================================================
--- runs.scm
+++ runs.scm
@@ -1684,11 +1684,11 @@
 	  ;;
 	  ;; check if can run more tests. if yes, continue, if no, rest for 10 seconds, check again
 	  ;; repeat until can run more tests
 	  ;;
 	  ;; look at the test jobgroup and tot jobs running
-	  (if (not (runs:dat-wait-for-jobs-funcion runsdat))
+	  (if (not (runs:dat-wait-for-jobs-function runsdat))
 	      (runs:dat-wait-for-jobs-function-set!
 	       runsdat 
 	       (lambda ()
 		 (let loop-can-run-more
 		     ((res      (runs:can-run-more-tests runsdat run-id jobgroup max-concurrent-jobs))