--- a/compiler/PPCProfilingContext.st	Fri Jul 24 15:06:54 2015 +0100
+++ b/compiler/PPCProfilingContext.st	Mon Aug 17 12:13:16 2015 +0100
@@ -11,6 +11,13 @@
 !
 
 
+!PPCProfilingContext methodsFor:'accessing'!
+
+position: value
+    self assert: value isInteger.
+    super position: value
+! !
+
 !PPCProfilingContext methodsFor:'gt'!
 
 gtReport: composite