pharo: Allow converting the authorization message as well

We need >>#do: as nextPutAllOn: is not called/doesn't exist in
this dialect.

1 files changed, 4 insertions, 0 deletions

diff --git a/callagent/authorization/SIPAuthorization.st b/callagent/authorization/SIPAuthorization.st
index b40a4eb..64bcd63 100644
--- a/callagent/authorization/SIPAuthorization.st
+++ b/callagent/authorization/SIPAuthorization.st
@@ -103,6 +103,10 @@ Object subclass: SIPAuthorization [
                         url: uri.
     ]
 
+    do: aBlock [
+        (String streamContents: [:str | self nextPutAllOn: str]) do: aBlock
+    ]
+
     nextPutAllOn: aStream [
         aStream
             nextPutAll: 'Digest username="';