--- a/RegressionTests__NumberTest.st	Wed Oct 18 11:28:56 2017 +0200
+++ b/RegressionTests__NumberTest.st	Wed Oct 18 14:53:16 2017 +0200
@@ -329,8 +329,6 @@
 !NumberTest methodsFor:'tests-reading'!
 
 testReadFrom
-    |compiledMethod|
-
     self assert: 1.0e-14    = (Number readFrom: '1.0e-14').
 
     self assert: ('1' asNumber = 1).
@@ -368,13 +366,13 @@
         self assert: ((Number readSmalltalkSyntaxFrom:'10r-22.2s5') = -22.2).
 
         "/ test fails when stc code, byte code works
-        compiledMethod := self class compiledMethodAt:#'test05_Comparing'.
-        (compiledMethod notNil 
-        and:[compiledMethod byteCode isNil]) ifTrue:[ 
-            self logSkipped:'2r1e26 is not valid in stc code -> debugger doesNotUnderstand: #e26'.
-        ] ifFalse:[    
-            self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
-        ].
+        (Helper 
+            isStcCompiledMethod:#'testReadFrom'
+            in:self) ifTrue:[ 
+                self logSkipped:'2r1e26 is not valid in stc code -> debugger doesNotUnderstand: #e26'.
+            ] ifFalse:[    
+                self assert: 2r1e26     = (Number readSmalltalkSyntaxFrom: '2r1e26').
+            ].
 
         self assert: ('-1q' asNumber = -1).
         self assert: ('-1q' asNumber class == LongFloat).