diff --git a/src/ExoRepo/NanoID.class.st b/src/ExoRepo/NanoID.class.st
index 2b21cad..a73756f 100644
--- a/src/ExoRepo/NanoID.class.st
+++ b/src/ExoRepo/NanoID.class.st
@@ -31,12 +31,11 @@ NanoID class >> binaryFile [
 NanoID class >> generate [
 	self binaryFile exists ifFalse: [ NanoID install].
 	Smalltalk os isWindows
-	ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
-	OSSUnixSubprocess new
-		command: self binaryFile fullName;
-		redirectStdout;
-		redirectStdout;
-		runAndWaitOnExitDo: [ :process :outString | ^ outString copyWithoutAll: (Character lf asString) ]
+		ifTrue: [ ^ (LibC resultOfCommand:self binaryFile fullName) copyWithoutAll: (Character lf asString) ].
+	^ (GtSubprocessWithInMemoryOutput new
+		shellCommand: self binaryFile fullName;
+		runAndWait; 
+		stdout)  copyWithoutAll: (Character lf asString)
 ]
 
 { #category : #accessing }