diff --git a/codec/SMPPBodyBase.st b/codec/SMPPBodyBase.st
index 7d3a2d0..99c0da8 100644
--- a/codec/SMPPBodyBase.st
+++ b/codec/SMPPBodyBase.st
@@ -182,7 +182,7 @@ sub-classes will provide the specific bodies.'>
                         self doParse: attribute stream: aStream]].
         ].
 
-        aStream atEnd ifFalse: [^self error: 'Message not consume'].
+        aStream atEnd ifFalse: [^self error: 'Message not consumed'].
     ]
 
     writeOn: aMsg [