diff --git a/repository/TiddlyWiki/Tiddler.class.st b/repository/TiddlyWiki/Tiddler.class.st
index 4ba43d6..7963151 100644
--- a/repository/TiddlyWiki/Tiddler.class.st
+++ b/repository/TiddlyWiki/Tiddler.class.st
@@ -526,8 +526,13 @@ Tiddler >> rawAliasedLinks [
 
 { #category : #accessing }
 Tiddler >> rawLinks [
-	self text ifNil: [ ^ Set new ].
-	^ (WikiTextGrammar new linkSea star parse: self text) asSet
+	^ self rawLinksIn: self text
+]
+
+{ #category : #accessing }
+Tiddler >> rawLinksIn: aText [
+	aText ifNil: [ ^ Set new ].
+	^ (WikiTextGrammar new linkSea star parse: aText) asSet
 ]
 
 { #category : #accessing }