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/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-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-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..c3aa2463
--- /dev/null
+++ b/repository/Grease-Tests-GemStone-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,7 @@
+*Grease-Tests-Pharo-Core
+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..c3aa2463
--- /dev/null
+++ b/repository/Grease-Tests-GemStone32-Core.package/GRGemStonePlatformTest.class/instance/testIsGemStone.st
@@ -0,0 +1,7 @@
+*Grease-Tests-Pharo-Core
+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..da5e9af5
--- /dev/null
+++ b/repository/Grease-Tests-Pharo-Core.package/GRPharoPlatformTest.class/instance/testIsPharo.st
@@ -0,0 +1,7 @@
+*Grease-Tests-Pharo-Core
+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