Andreas Raab uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-ar.342.mcz==================== Summary ====================
Name: System-ar.342
Author: ar
Time: 21 June 2010, 8:27:54.927 pm
UUID: d5cb0874-d764-e64c-b008-24dda2e88d0d
Ancestors: System-cmm.341
Add a test to identify whether the image is running under Cog or not.
=============== Diff against System-cmm.341 ===============
Item was added:
+ ----- Method: SmalltalkImage>>isRunningCog (in category 'sources, changes log') -----
+ isRunningCog
+ "Returns true if we're running Cog"
+
+ ^[(self vmParameterAt: 46) > 0] on: Error do:[:ex| ex return: false]!