diff --git a/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st b/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st
index d47ecfa9..9d4c5dc8 100644
--- a/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st
+++ b/src/GToolkit-Pharo-Coder/GtPharoMethodCoder.class.st
@@ -703,7 +703,7 @@ GtPharoMethodCoder >> isMondrianPaintMethod: aMethodNode [
 
 { #category : #testing }
 GtPharoMethodCoder >> isNewMethod [
-	^ self currentSourceString isEmpty
+	^ (self currentSourceString isEmpty) or: [selector isNil]
 ]
 
 { #category : #testing }