From 7bee831b63854ccf23dbd41181c6023e6a8acc20 Mon Sep 17 00:00:00 2001
From: Holger Hans Peter Freyther <holger@moiji-mobile.com>
Date: Tue, 17 Jun 2014 18:35:59 +0200
Subject: [PATCH] codec: Deal with Sockets.StreamSocket returning a String

---
 codec/SMPPMessage.st | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/codec/SMPPMessage.st b/codec/SMPPMessage.st
index 2a2822b..b9d0328 100644
--- a/codec/SMPPMessage.st
+++ b/codec/SMPPMessage.st
@@ -21,9 +21,9 @@ Object subclass: SMPPMessage [
 
     SMPPMessage class >> readFrom: aStream [
         | len data stream header body |
-        len := ((aStream next: 4) uintAt: 1) swap32.
+        len := ((aStream next: 4) asByteArray uintAt: 1) swap32.
         data := aStream next: len - 4.
-        stream := data readStream.
+        stream := data asByteArray readStream.
 
         header := SMPPPDUHeader readFrom: stream.
         body := SMPPBodyBase readFrom: stream for: header.