diff --git a/libs/test-sum-atomic.scm b/libs/test-sum-atomic.scm
index a86ccece..81910c0c 100644
--- a/libs/test-sum-atomic.scm
+++ b/libs/test-sum-atomic.scm
@@ -18,7 +18,7 @@
       (sum-loop (- n 1))))
 
 (define (sum-entry-pt)
-  (sum-loop (* 10 10 100 100)))
+  (sum-loop (* 10 100 100 100)))
 
 ;; Thread - Do something, then let main thread know when we are done
 (define t1 (make-thread sum-entry-pt))
@@ -27,12 +27,18 @@
 (define t4 (make-thread sum-entry-pt))
 (define t5 (make-thread sum-entry-pt))
 (define t6 (make-thread sum-entry-pt))
+(define t7 (make-thread sum-entry-pt))
+(define t8 (make-thread sum-entry-pt))
+(define t9 (make-thread sum-entry-pt))
 (thread-start! t1)
 (thread-start! t2)
 (thread-start! t3)
 (thread-start! t4)
 (thread-start! t5)
 (thread-start! t6)
+(thread-start! t7)
+(thread-start! t8)
+(thread-start! t9)
 
 (thread-join! t1)
 (thread-join! t2)
@@ -40,6 +46,9 @@
 (thread-join! t4)
 (thread-join! t5)
 (thread-join! t6)
+(thread-join! t7)
+(thread-join! t8)
+(thread-join! t9)
 (display "main thread done, sum = ")
 (display (ref *sum*))
 (newline)
diff --git a/libs/test-sum-mutex.scm b/libs/test-sum-mutex.scm
index 6aa0b357..9ddeb54d 100644
--- a/libs/test-sum-mutex.scm
+++ b/libs/test-sum-mutex.scm
@@ -19,7 +19,7 @@
       (sum-loop (- n 1))))
 
 (define (sum-entry-pt)
-  (sum-loop (* 10 10 100 100)))
+  (sum-loop (* 10 100 100 100)))
 
 ;; Thread - Do something, then let main thread know when we are done
 (define t1 (make-thread sum-entry-pt))
@@ -28,12 +28,18 @@
 (define t4 (make-thread sum-entry-pt))
 (define t5 (make-thread sum-entry-pt))
 (define t6 (make-thread sum-entry-pt))
+(define t7 (make-thread sum-entry-pt))
+(define t8 (make-thread sum-entry-pt))
+(define t9 (make-thread sum-entry-pt))
 (thread-start! t1)
 (thread-start! t2)
 (thread-start! t3)
 (thread-start! t4)
 (thread-start! t5)
 (thread-start! t6)
+(thread-start! t7)
+(thread-start! t8)
+(thread-start! t9)
 
 (thread-join! t1)
 (thread-join! t2)
@@ -41,6 +47,9 @@
 (thread-join! t4)
 (thread-join! t5)
 (thread-join! t6)
+(thread-join! t7)
+(thread-join! t8)
+(thread-join! t9)
 (display "main thread done, sum = ")
 (mutex-lock! m)
 (display *sum*)