--- a/BackgroundQueueProcessingJob.st	Mon Feb 20 10:41:32 2017 +0100
+++ b/BackgroundQueueProcessingJob.st	Tue Feb 21 10:26:55 2017 +0100
@@ -110,23 +110,6 @@
 "
 ! !
 
-!BackgroundQueueProcessingJob methodsFor:'accessing-private'!
-
-queue
-    "Returns the internal queue."
-
-    ^ queue
-
-    "Modified (format): / 16-04-2014 / 15:11:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
-queueAccessLock
-    "Returns the internal lock used to protect internal queue"
-
-    ^ queueAccessLock
-
-    "Modified (comment): / 16-04-2014 / 15:11:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
 
 !BackgroundQueueProcessingJob methodsFor:'adding & removing'!
 
@@ -162,10 +145,11 @@
 
     super initialize.
     queue := OrderedCollection new.
-    queueAccessLock := RecursionLock new.
-    queueProcessedSema := Semaphore new.
+    queueAccessLock := RecursionLock new name:'BackgroundQueueProcessingJob lock'.
+    queueProcessedSema := Semaphore new name:'BackgroundQueueProcessingJob sema'.
 
     "Modified: / 06-12-2011 / 15:50:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 20-02-2017 / 20:46:30 / stefan"
 ! !
 
 !BackgroundQueueProcessingJob methodsFor:'private'!