diff --git a/src/Tools/BlockClosure.extension.st b/src/Tools/BlockClosure.extension.st
new file mode 100644
index 00000000000..669708bd600
--- /dev/null
+++ b/src/Tools/BlockClosure.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : 'BlockClosure' }
+
+{ #category : '*Tools' }
+BlockClosure >> browse [
+
+	^ compiledBlock browse
+]
diff --git a/src/Tools/CompiledBlock.extension.st b/src/Tools/CompiledBlock.extension.st
new file mode 100644
index 00000000000..be63b109343
--- /dev/null
+++ b/src/Tools/CompiledBlock.extension.st
@@ -0,0 +1,20 @@
+Extension { #name : 'CompiledBlock' }
+
+{ #category : '*Tools' }
+CompiledBlock >> browse [
+	| method |
+
+	method := self method.
+	
+	method isInstalled
+		ifTrue: [
+			^ Smalltalk tools browser
+				openOnClass: self methodClass
+				selector: self selector
+				highlight: self sourceNode sourceCode ]
+		ifFalse: [
+			^ Smalltalk tools browser
+				openOnClass: self methodClass
+				selector: self selector ]
+
+]