From 7cc886bc6cc3364a4469f9f2dceee2bd89aa69fb Mon Sep 17 00:00:00 2001
From: BenComan <github.com@ben.coman.com.au>
Date: Mon, 6 May 2019 23:42:06 +0800
Subject: [PATCH] Fixes #3302 for Pharo 7.

---
 src/Tool-ExternalBrowser/ExternalBrowser.class.st        | 2 +-
 src/Tool-ExternalBrowser/ExternalChangesBrowser.class.st | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/Tool-ExternalBrowser/ExternalBrowser.class.st b/src/Tool-ExternalBrowser/ExternalBrowser.class.st
index 7417bec6d8f..43c01d638e6 100644
--- a/src/Tool-ExternalBrowser/ExternalBrowser.class.st
+++ b/src/Tool-ExternalBrowser/ExternalBrowser.class.st
@@ -87,7 +87,7 @@ ExternalBrowser class >> serviceBrowseCode [
 		selector: #browseStream:
 		description: 'Open a "file-contents browser" on this file, allowing you to view and selectively load its code'
 		buttonLabel: 'Code')
-		argumentGetter: [ :file| file readStream]
+		argumentGetter: [ :file| file readOnlyStream]
 ]
 
 { #category : #'System-FileRegistry' }
diff --git a/src/Tool-ExternalBrowser/ExternalChangesBrowser.class.st b/src/Tool-ExternalBrowser/ExternalChangesBrowser.class.st
index 20f0b76eb7b..b890a32e7c1 100644
--- a/src/Tool-ExternalBrowser/ExternalChangesBrowser.class.st
+++ b/src/Tool-ExternalBrowser/ExternalChangesBrowser.class.st
@@ -114,7 +114,7 @@ ExternalChangesBrowser class >> serviceBrowseCSOrSTFile [
 		selector: #openOnStream:
 		description: 'Open a changelist tool on this file'
 		buttonLabel: 'Changes')
-		argumentGetter: [ :stream | stream readStream ]
+		argumentGetter: [ :stream | stream readOnlyStream ]
 ]
 
 { #category : #'file service' }