From 84e5b7cc3ce5f9be186c2605b1bca08c65276621 Mon Sep 17 00:00:00 2001
From: Kris <1611248+Rinzwind@users.noreply.github.com>
Date: Sun, 21 Apr 2024 12:53:58 +0200
Subject: [PATCH] =?UTF-8?q?Fixed=20#writeExtensionMethods:className:=20on?=
 =?UTF-8?q?=20TonelWriter=20to=20sort=20methods=20with=20the=20same=20sele?=
 =?UTF-8?q?ctor=20consistently=20(putting=20the=20metaclass=E2=80=99s=20me?=
 =?UTF-8?q?thod=20first).?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 .../instance/writeExtensionMethods.className..st              | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/MonticelloTonel-Core.package/TonelWriter.class/instance/writeExtensionMethods.className..st b/MonticelloTonel-Core.package/TonelWriter.class/instance/writeExtensionMethods.className..st
index 32dd74d..3253e0a 100644
--- a/MonticelloTonel-Core.package/TonelWriter.class/instance/writeExtensionMethods.className..st
+++ b/MonticelloTonel-Core.package/TonelWriter.class/instance/writeExtensionMethods.className..st
@@ -11,5 +11,5 @@ writeExtensionMethods: methods className: className
 			definition := Dictionary new.
 			self at: #name put: className in: definition.
 			s << 'Extension ' << (self toSTON: definition) << nl.
-			(methods sorted: [ :a :b | a selector < b selector ]) do: [ :each |
-				self writeMethodDefinition: each on: s ] ]
\ No newline at end of file
+			(methods sorted: [ :a :b | a selector < b selector or: [ a selector = b selector and: [ a classIsMeta ] ] ])
+				do: [ :each | self writeMethodDefinition: each on: s ] ]
\ No newline at end of file