--- a/BoltLock.st	Mon Aug 06 17:12:30 2012 +0200
+++ b/BoltLock.st	Mon Aug 06 17:13:43 2012 +0200
@@ -223,7 +223,7 @@
 
     "/ todo: resume by priority; higher first.
     processes do:[:eachProcess | 
-        Transcript showCR:('   wakeup thread %1' bindWith:eachProcess name).
+        "/ Transcript showCR:('   wakeup thread %1' bindWith:eachProcess name).
         Processor resume:eachProcess
     ].
 
@@ -238,7 +238,7 @@
     |activeProcess wasBlocked|
 
     wasBlocked := OperatingSystem blockInterrupts.
-    Transcript showCR:'  release in state ',state.
+    "/ Transcript showCR:'  release in state ',state.
     activeProcess := Processor activeProcess.
     state == StateLocked ifTrue:[
         "I am the writer"
@@ -267,7 +267,7 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
 
-    Transcript showCR:'  waitForRead in state ',state.
+    "/ Transcript showCR:'  waitForRead in state ',state.
     (state == StateFree or:[state == StateBusy]) ifFalse:[
         "being written; wait until released"
         activeProcess := Processor activeProcess.
@@ -300,7 +300,7 @@
 
     wasBlocked := OperatingSystem blockInterrupts.
 
-    Transcript showCR:'  waitForWrite in state ',state.
+    "/ Transcript showCR:'  waitForWrite in state ',state.
     state ~~ StateFree ifTrue:[
         "being read or written"
         state == StateBusy ifTrue:[
@@ -333,11 +333,11 @@
 !BoltLock class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic2/BoltLock.st,v 1.3 2012-08-06 15:12:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BoltLock.st,v 1.4 2012-08-06 15:13:43 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic2/BoltLock.st,v 1.3 2012-08-06 15:12:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic2/BoltLock.st,v 1.4 2012-08-06 15:13:43 cg Exp $'
 ! !
 
 BoltLock initialize!