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]!