--- a/extensions.st	Tue Jul 07 11:43:15 2020 +0100
+++ b/extensions.st	Wed Jul 08 11:30:52 2020 +0100
@@ -247,6 +247,22 @@
     "Created: / 11-09-2010 / 18:06:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Method methodsFor:'converting'!
+
+asMethodDefinition
+    ^ self asMethodReference asMethodDefinition
+
+    "Created: / 06-07-2020 / 21:37:03 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
+!Method methodsFor:'converting'!
+
+asMethodReference
+    ^ MethodReference class: mclass selector: self selector
+
+    "Created: / 06-07-2020 / 21:36:42 / Jan Vrany <jan.vrany@labware.com>"
+! !
+
 !Object methodsFor:'*monticello'!
 
 isConflict
@@ -565,20 +581,6 @@
 	^ ('0', self select: [:ea | ea isDigit]) asNumber
 ! !
 
-!String methodsFor:'*monticello-squeakCompatibility'!
-
-withSqueakLineEndings
-        "Answer a copy of myself in which all sequences of <CR><LF> or <LF> have been changed to <CR>"
-        | newText |
-        (self includes: Character lf) ifFalse: [ ^self copy ].
-        newText := self copyReplaceAll: String crlf with: Character return asString.
-        (newText asString includes: Character lf) ifFalse: [ ^newText ].
-        ^newText copyReplaceAll: String lf with: Character return asString asTokens: false.
-
-    "Created: / 26-08-2009 / 11:35:56 / Jaroslav Havlin <havlij6@fel.cvut.cz>"
-    "Modified: / 03-07-2020 / 16:08:40 / Jan Vrany <jan.vrany@labware.com>"
-! !
-
 !StringCollection methodsFor:'converting'!
 
 asStringWithNativeLineEndings