--- a/Smalltalk.st	Tue Dec 17 20:21:42 2013 +0100
+++ b/Smalltalk.st	Wed Dec 18 18:48:33 2013 +0100
@@ -1038,6 +1038,7 @@
     "Created: 20.6.1997 / 16:58:28 / cg"
 ! !
 
+
 !Smalltalk class methodsFor:'browsing'!
 
 browseAllCallsOn:aSelectorSymbol
@@ -3437,6 +3438,16 @@
     "
 !
 
+isAmber
+    "return false here - this may be useful to write portable
+     applications - add #isAmber to your Amber Smalltalk,
+     returning true there."
+
+    ^ false
+
+    "Created: / 18-12-2013 / 15:43:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isDolphinSmalltalk
     "return false here - this may be useful to write portable
      applications - add #isDolphinSmalltalk to your dolphin,
@@ -3445,6 +3456,26 @@
     ^ false
 !
 
+isGemStone
+    "return false here - this may be useful to write portable
+     applications - add #isGemStone to your GemStone/S,
+     returning true there."
+
+    ^ false
+
+    "Created: / 18-12-2013 / 15:43:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+isPharo
+    "return false here - this may be useful to write portable
+     applications - add #isPharo to your Pharo,
+     returning true there."
+
+    ^ false
+
+    "Created: / 18-12-2013 / 15:42:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 isSmalltalkMT
     "return false here - this may be useful to write portable
      applications - add #isSmalltalkMT to your smalltalk-MT,