diff --git a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
index cba62f8..ea35173 100644
--- a/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
+++ b/Datanalitica.package/TwitterUser.class/instance/asCardElement.st
@@ -14,7 +14,7 @@ asCardElement
 	
 	webpageButton := BrButton new
 		aptitude: BrGlamorousButtonWithLabelAptitude new;
-		label: (self url asString copyReplaceAll: self url scheme, '://' with: '') allButLast;
+		label: self guiLinkLabel;
 		action: [ WebBrowser openOn: self url asString ].
 		
 	textInfoPane := BrVerticalPane new
diff --git a/Datanalitica.package/TwitterUser.class/instance/getMessages.st b/Datanalitica.package/TwitterUser.class/instance/getMessages.st
new file mode 100644
index 0000000..03cd1ff
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/getMessages.st
@@ -0,0 +1,2 @@
+accessing
+getMessages
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st b/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st
new file mode 100644
index 0000000..2e620ee
--- /dev/null
+++ b/Datanalitica.package/TwitterUser.class/instance/guiLinkLabel.st
@@ -0,0 +1,4 @@
+accessing
+guiLinkLabel
+	self url ifNil: [^ ''].
+	^ (self url asString copyReplaceAll: self url scheme, '://' with: '') allButLast
\ No newline at end of file
diff --git a/Datanalitica.package/TwitterUser.class/instance/tweets.st b/Datanalitica.package/TwitterUser.class/instance/tweets.st
index 9a85747..f460912 100644
--- a/Datanalitica.package/TwitterUser.class/instance/tweets.st
+++ b/Datanalitica.package/TwitterUser.class/instance/tweets.st
@@ -1,3 +1,3 @@
 accessing
 tweets
-	^ tweets ifNil: [ tweets := TweetsCollection new]
\ No newline at end of file
+	^ tweets ifNil: [ self tweets: self getMessages ]
\ No newline at end of file