diff --git a/examples/threading/producer-consumer.scm b/examples/threading/producer-consumer.scm
index 84ef109d..f59b7ef6 100644
--- a/examples/threading/producer-consumer.scm
+++ b/examples/threading/producer-consumer.scm
@@ -30,13 +30,7 @@
   (let loop ()
     ;(write (list (null? *queue*) *queue*))
     (define sleep? #f)
-    ;; looks like the main issue is a macro expansion problem, because cond never expands below. WTF?
-    ;; above named let works fine, and this one does too if expressions are removed or re-ordered 
-    ;; between the named let and the cond.
-    ;;
-    ;; 2 issues here:
-    ;; - the mutex-lock seems to skip over cond; there is some kind of
-    ;;   control flow problem
+    ;; issues here:
     ;; - try compiling this but commenting out the Cyc_mutex_lock
     ;;   code in the C. there is a gc_move bag tag error at runtime
     ;;   also get the same result by using read-char below... WTF?
@@ -56,6 +50,6 @@
 (thread-start! (make-thread producer))
 (thread-start! (make-thread producer))
 (thread-start! (make-thread producer))
-(producer)   
+;(producer)   
 (consumer)
 ;(read)