@@ -263,23 +263,31 @@
 				       (let loop ()
 					   (case (thread-state th1)
 					     ((terminated)
 					      (debug:print 0 *default-log-port* "th1 terminated, all done for now."))
 					     ((running)
+					      (debug:print 0 *default-log-port* "th1 running, suspending now.")
 					      (thread-suspend! th1)
 					      (thread-sleep! 0.1)
 					      (loop))
 					     ((sleeping)
+					      (debug:print 0 *default-log-port* "th1 sleeping, resuming now.")
 					      (thread-resume! th1)
 					      (thread-sleep! 0.9)
 					      (loop))
+					     ((dead)
+					      (debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?"))
 					     (else
+					      (debug:print 0 *default-log-port* "th1 "(thread-state th1)", what's next?")
+					      (thread-sleep! 0.5)
 					      (loop))))))))
+	      (set! *updaters-running* #t)
 	      (thread-start! th1)
 	      (thread-sleep! 0.1)
 	      (thread-start! th2)
-	      (thread-join! th1))))))
+	      (thread-join! th1)
+	      (set! *updaters-running* #f))))))
 
 ;; if tab-num passed in then use it, otherwise look in commondat at curr-tab-num
 ;; adds the updater passed in the updaters list at that hashkey
 ;;
 (define (dboard:commondat-add-updater commondat updater #!key (tab-num #f))