--- a/RegressionTests__Helper.st	Mon Oct 16 15:15:55 2017 +0200
+++ b/RegressionTests__Helper.st	Mon Oct 16 15:26:15 2017 +0200
@@ -31,6 +31,17 @@
 
 !Helper class methodsFor:'queries'!
 
+isStcCompiledMethod:aMethod
+    inClass:aClass
+
+    |compiledMethod|
+
+    compiledMethod := aClass compiledMethodAt:aMethod.
+
+    ^ (compiledMethod notNil 
+    and:[compiledMethod byteCode isNil])
+!
+
 packageDirectoryForRegressionTests
     ^ self workDirectory / 'stx' / 'goodies' / 'regression'     
 !