diff --git a/.squot b/.squot
index 5d07dee..3139a59 100644
--- a/.squot
+++ b/.squot
@@ -1,6 +1,6 @@
 OrderedDictionary {
-	'src\/ContextS2-Core.package' : #SquotCypressCodeSerializer,
-	'src\/ContextS2-Tests.package' : #SquotCypressCodeSerializer,
-	'src\/BoBreakout.package' : #SquotCypressCodeSerializer,
-	'src\/BaselineOfContextS.package' : #SquotCypressCodeSerializer
+	'src/ContextS2-Core.package' : #SquotCypressCodeSerializer,
+	'src/ContextS2-Tests.package' : #SquotCypressCodeSerializer,
+	'src/BoBreakout.package' : #SquotCypressCodeSerializer,
+	'src/BaselineOfContextS.package' : #SquotCypressCodeSerializer
 }
\ No newline at end of file
diff --git a/src/ContextS2-Core.package/MessageSet.extension/instance/initializeMessageList..st b/src/ContextS2-Core.package/MessageSet.extension/instance/initializeMessageList..st
deleted file mode 100644
index 1f8ceb3..0000000
--- a/src/ContextS2-Core.package/MessageSet.extension/instance/initializeMessageList..st
+++ /dev/null
@@ -1,39 +0,0 @@
-*contexts2-core-private-override
-initializeMessageList: anArray
-	"Initialize my messageList from the given list of MethodReference or string objects.  NB: special handling for uniclasses."
-	"overridden to avoid re-creating method references."
-	
-	messageList := OrderedCollection new.
-	anArray do: [ :each |
-		"--- BEGIN OVERRIDE CHANGE ---"
-		(each isKindOf: MethodReference)
-			ifTrue: [| class sel s |
-				class := each actualClass.
-				sel := each selector.
-				class ifNotNil: [class isUniClass
-								ifTrue:
-									[s := class typicalInstanceName, ' ', sel]
-								ifFalse:
-									[s := class name , ' ' , sel , ' {' , 
-										((class organization categoryOfElement: sel) ifNil: ['']) , '}'].
-					each stringVersion: s.
-					messageList add: each]]
-			ifFalse: [
-		"--- END OVERRIDE CHANGE ---"
-				MessageSet 
-					parse: each  
-					toClassAndSelector: [ :class :sel | | s |
-						class ifNotNil:
-							[class isUniClass
-								ifTrue:
-									[s := class typicalInstanceName, ' ', sel]
-								ifFalse:
-									[s := class name , ' ' , sel , ' {' , 
-										((class organization categoryOfElement: sel) ifNil: ['']) , '}'].
-							messageList add: (
-								MethodReference new
-									setClass: class  
-									methodSymbol: sel 
-									stringVersion: s)]]]].
-	messageListIndex := messageList isEmpty ifTrue: [0] ifFalse: [1].
-	contents := ''
\ No newline at end of file
diff --git a/src/ContextS2-Core.package/MessageSet.extension/methodProperties.json b/src/ContextS2-Core.package/MessageSet.extension/methodProperties.json
index 4b0f9d4..1fc213e 100644
--- a/src/ContextS2-Core.package/MessageSet.extension/methodProperties.json
+++ b/src/ContextS2-Core.package/MessageSet.extension/methodProperties.json
@@ -2,5 +2,4 @@
 	"class" : {
 		 },
 	"instance" : {
-		"initializeMessageList:" : "topa 3/3/2016 14:24",
 		"selectedMessage" : "tfel 3/21/2012 13:32:27.15" } }