diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st
index 419d7169..0f0bbaf0 100644
--- a/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/compile.into.classified..st
@@ -1,4 +1,4 @@
-file library
+meta-object-protocol
 compile: aString into: aClass classified: aSymbol
 	"The trick here is to be as silently a possible so that the package is not marked dirty when running WAFileLibrary test.
 	This also makes running tests much faster."
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st
index 2c0c7aed..5e1bfedd 100644
--- a/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/removeSelector.from..st
@@ -1,3 +1,3 @@
-file library
+meta-object-protocol
 removeSelector: aSymbol from: aClass
 	self subclassResponsibility
\ No newline at end of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..76902771
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	self subclassResponsibility
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..d34a7e25
--- /dev/null
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod _sourceString
\ No newline at end of file
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..3ed3d44c
--- /dev/null
+++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
\ No newline at end of file
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..3ed3d44c
--- /dev/null
+++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
\ No newline at end of file
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..3ed3d44c
--- /dev/null
+++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod sourceCode
\ No newline at end of file
diff --git a/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st
new file mode 100644
index 00000000..6131cf3d
--- /dev/null
+++ b/repository/Grease-Squeak6-Core.package/GRSqueakPlatform.class/instance/sourceCodeStringOf..st
@@ -0,0 +1,5 @@
+meta-object-protocol
+sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	^ self convertToSmalltalkNewlines: aCompiledMethod getSourceFromFile
\ No newline at end of file
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
index 6b5d9978..cac5ef2b 100644
--- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
+++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileAsciiString.st
@@ -1,4 +1,4 @@
-tests-file library
+tests-mop
 testCompileAsciiString
 	| selector expected source |
 	
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
index a02b1ac5..116559bd 100644
--- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
+++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testCompileUnicodeString.st
@@ -1,4 +1,4 @@
-tests-file library
+tests-mop
 testCompileUnicodeString
 	| selector expected source |
 	selector := #stringMethod.
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
new file mode 100644
index 00000000..64a5c334
--- /dev/null
+++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
@@ -0,0 +1,11 @@
+tests-mop
+testSourceCodeStringOf
+
+	| sourceCodeString |
+	sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:.
+	self
+		assert: sourceCodeString
+		equals: 'sourceCodeStringOf: aCompiledMethod
+	"Return a String with the source code for a compiled method."
+
+	self subclassResponsibility'
\ No newline at end of file