--- a/GDBInternalPipeStream.st	Fri Aug 18 14:10:59 2023 +0100
+++ b/GDBInternalPipeStream.st	Fri Aug 18 14:25:54 2023 +0100
@@ -193,14 +193,15 @@
     first := 1.
     last := 0.
 
-    accessLock := Semaphore forMutualExclusion." Plug new respondTo: #critical: with: [ :block | block value ]; yourself."
-    dataAvailable := Semaphore new.
-    spaceAvailable := Semaphore new.
+    accessLock := GDBPortlib current newMutex." Plug new respondTo: #critical: with: [ :block | block value ]; yourself."
+    dataAvailable := GDBPortlib current newSemaphore.
+    spaceAvailable := GDBPortlib current newSemaphore.
 
     closed := false
 
     "Created: / 07-06-2014 / 00:49:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
     "Modified: / 11-06-2014 / 23:12:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 18-08-2023 / 14:18:17 / Jan Vrany <jan.vrany@labware.com>"
 ! !
 
 !GDBInternalPipeStream methodsFor:'non homogenous reading'!