Tweets collection now inherits from OrderedCollection to improve reusability.

Socialmetrica.package/NitterUser.class/instance/quotes.st

@@ -3,5 +3,7 @@ quotes
 
 	self messages ifEmpty: [ self getMessages ].
 	^ TweetsCollection new
-		messages: (self messages  messages select: [ :each | (each metadata at: 'quote') isNotEmpty ]);
+		messages: (self messages  messages 
+					select: [ :each | 
+						(each metadata at: 'quote') isNotEmpty and: [ each user userName = self userName] ]);
 		yourself

Socialmetrica.package/TweetsCollection.class/instance/messages..st

@@ -1,3 +1,5 @@
 accessing
 messages: aTweetsCollection
-	^ messages := aTweetsCollection
+	firstIndex := 1.
+	lastIndex := aTweetsCollection size.
+	^ array := aTweetsCollection

Socialmetrica.package/TweetsCollection.class/instance/messages.st

@@ -1,3 +1,3 @@
 accessing
 messages
-	^ messages ifNil: [ messages := OrderedCollection new ]
+	^ array ifNil: [ array := OrderedCollection new ]

Socialmetrica.package/TweetsCollection.class/instance/store.st

@@ -1,7 +1,7 @@
 accessing
 store
-	ReStore isConnected ifFalse: [ self class storeDB]. "Starting  the ReStore singleton."
+	ReStore isConnected ifFalse: [ self class storeDB ]. "Starting  the ReStore singleton."
-	self messages do: [:each | 	ReStore evaluateAsTransaction: [  
+	self messages do: [ :each | 	ReStore evaluateAsTransaction: [  
 			each store.
 			each user isInDB ifFalse: [ each user store ]
 		] 

Socialmetrica.package/TweetsCollection.class/properties.json

@@ -1,13 +1,12 @@
 {
 	"commentStamp" : "",
-	"super" : "Object",
+	"super" : "OrderedCollection",
 	"category" : "Socialmetrica",
 	"classinstvars" : [ ],
 	"pools" : [ ],
 	"classvars" : [ ],
 	"instvars" : [
-		"query",
+		"query"
-		"messages"
 	],
 	"name" : "TweetsCollection",
 	"type" : "normal"