diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st b/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st
new file mode 100644
index 00000000..3a57672e
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/isGemStone.st
@@ -0,0 +1,4 @@
+testing
+isGemStone
+
+    ^ false
\ No newline at end of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st b/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st
new file mode 100644
index 00000000..b2f9f340
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ false
\ No newline at end of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st
new file mode 100644
index 00000000..8605e96f
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/isSmalltalkX.st
@@ -0,0 +1,4 @@
+testing
+isSmalltalkX
+
+    ^ false
\ No newline at end of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st b/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st
new file mode 100644
index 00000000..34e2f234
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/isSqueak.st
@@ -0,0 +1,4 @@
+testing
+isSqueak
+
+    ^ false
\ No newline at end of file
diff --git a/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st b/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st
new file mode 100644
index 00000000..8e022384
--- /dev/null
+++ b/repository/Grease-Core.package/GRPlatform.class/instance/isVAST.st
@@ -0,0 +1,4 @@
+testing
+isVAST
+
+    ^ false
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st
index bef36fcb..1ca22e12 100644
--- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/doTransaction..st
@@ -1,4 +1,4 @@
-*grease-gemstone-core
+transactions
 doTransaction: aBlock
   "Evaluate aBlock in a transaction. 
 	 Return true if the transaction succeeds and false if the transaction fails.
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st
new file mode 100644
index 00000000..e947f21e
--- /dev/null
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/isGemStone.st
@@ -0,0 +1,4 @@
+testing
+isGemStone
+
+    ^ true
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st
index 50e2a5b0..4de9489b 100644
--- a/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st
+++ b/repository/Grease-GemStone-Core.package/GRGemStonePlatform.class/instance/thisContext.st
@@ -1,3 +1,3 @@
-*grease-gemstone-core
+processes
 thisContext
   ^ GsContext fromLevel: 3
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st
new file mode 100644
index 00000000..c35dccec
--- /dev/null
+++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/assert.identicalTo..st
@@ -0,0 +1,4 @@
+*grease-gemstone-core
+assert: anObject identicalTo: otherObj
+
+        self assert: anObject identical: otherObj
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st
new file mode 100644
index 00000000..e516bae0
--- /dev/null
+++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/instance/deny.identicalTo..st
@@ -0,0 +1,5 @@
+*grease-gemstone-core
+deny: anObject identicalTo: anotherObject
+	self
+		deny: anObject == anotherObject
+		description: anObject printString, ' is *not* identical to ', anotherObject printString.
\ No newline at end of file
diff --git a/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json
new file mode 100644
index 00000000..10c0c4d0
--- /dev/null
+++ b/repository/Grease-GemStone-Core.package/TestAsserter.extension/properties.json
@@ -0,0 +1,2 @@
+{
+	"name" : "TestAsserter" }
diff --git a/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st
new file mode 100644
index 00000000..17945cf1
--- /dev/null
+++ b/repository/Grease-Pharo100-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
\ No newline at end of file
diff --git a/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st
new file mode 100644
index 00000000..17945cf1
--- /dev/null
+++ b/repository/Grease-Pharo60-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
\ No newline at end of file
diff --git a/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st
new file mode 100644
index 00000000..17945cf1
--- /dev/null
+++ b/repository/Grease-Pharo70-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
\ No newline at end of file
diff --git a/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st
new file mode 100644
index 00000000..17945cf1
--- /dev/null
+++ b/repository/Grease-Pharo90-Core.package/GRPharoPlatform.class/instance/isPharo.st
@@ -0,0 +1,4 @@
+testing
+isPharo
+
+    ^ true
\ No newline at end of file
diff --git a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
index 64a5c334..13d1e453 100644
--- a/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
+++ b/repository/Grease-Tests-Core.package/GRPlatformTest.class/instance/testSourceCodeStringOf.st
@@ -5,7 +5,8 @@ testSourceCodeStringOf
 	sourceCodeString := GRPlatform current sourceCodeStringOf: GRPlatform >> #sourceCodeStringOf:.
 	self
 		assert: sourceCodeString
-		equals: 'sourceCodeStringOf: aCompiledMethod
+		equals: (GRPlatform current convertToSmalltalkNewlines: 
+'sourceCodeStringOf: aCompiledMethod
 	"Return a String with the source code for a compiled method."
 
-	self subclassResponsibility'
\ No newline at end of file
+	self subclassResponsibility')
\ No newline at end of file
diff --git a/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
new file mode 100644
index 00000000..e9fce035
--- /dev/null
+++ b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,7 @@
+tests
+testIsGemStone
+	self assert: GRPlatform current isGemStone.
+	self deny: GRPlatform current isPharo.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST.
+	self deny: GRPlatform current isSmalltalkX
diff --git a/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
new file mode 100644
index 00000000..e9fce035
--- /dev/null
+++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,7 @@
+tests
+testIsGemStone
+	self assert: GRPlatform current isGemStone.
+	self deny: GRPlatform current isPharo.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST.
+	self deny: GRPlatform current isSmalltalkX
diff --git a/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st
new file mode 100644
index 00000000..1677c4d6
--- /dev/null
+++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st
@@ -0,0 +1,7 @@
+tests
+testIsPharo
+	self assert: GRPlatform current isPharo.
+	self deny: GRPlatform current isGemStone.
+	self deny: GRPlatform current isSqueak.
+	self deny: GRPlatform current isVAST.
+	self deny: GRPlatform current isSmalltalkX
\ No newline at end of file