diff --git a/source/Stargate-Application-Info/OperatingSystemInformationProvider.class.st b/source/Stargate-Application-Info/OperatingSystemInformationProvider.class.st
index 4ac1c40..b6d0192 100644
--- a/source/Stargate-Application-Info/OperatingSystemInformationProvider.class.st
+++ b/source/Stargate-Application-Info/OperatingSystemInformationProvider.class.st
@@ -43,7 +43,7 @@ OperatingSystemInformationProvider >> includeLinuxDetailsOn: details [
 		linesDo: [ :line | 
 			| labelAndData |
 
-			labelAndData := line splitOn: $=.
+			labelAndData := $= split: line .
 			labelAndData size = 2
 				then: [ releaseInfo
 						at: labelAndData first asLowercase trimBoth
diff --git a/source/Stargate-Model/RESTfulControllerAcceptNegotiator.class.st b/source/Stargate-Model/RESTfulControllerAcceptNegotiator.class.st
index cc80d39..159733d 100644
--- a/source/Stargate-Model/RESTfulControllerAcceptNegotiator.class.st
+++ b/source/Stargate-Model/RESTfulControllerAcceptNegotiator.class.st
@@ -112,7 +112,7 @@ RESTfulControllerAcceptNegotiator >> precedenceFor: aMediaType [
 		ifTrue: [ precedence := precedence + 1 ].
 	version := aMediaType parameterAt: 'version' ifAbsent: [ ^ precedence ].
 	precedence := precedence + 2.
-	versionParts := version splitOn: $..
+	versionParts := $. split: version.
 	precedence := precedence + versionParts size.
 	versionParts doWithIndex: [ :part :index | precedence := precedence + (part asInteger * (2 raisedTo: 4 - index)) ].
 
@@ -128,13 +128,13 @@ RESTfulControllerAcceptNegotiator >> sortByPrecedence: mediaTypes [
 { #category : #'private - accessing' }
 RESTfulControllerAcceptNegotiator >> splitMediaTypesIn: acceptList [
 
-	^ ( acceptList splitOn: ',' ) collect: [ :type | type asMediaType ]
+	^ ( ',' split: acceptList ) collect: [ :type | type asMediaType ]
 ]
 
 { #category : #'private - accessing' }
 RESTfulControllerAcceptNegotiator >> splitQualifiedLanguageRangesIn: acceptLanguageList [
 
-	^ ( acceptLanguageList splitOn: ',' )
+	^ ( ',' split: acceptLanguageList )
 		inject: OrderedCollection new
 		into: [ :qualifiedLanguageRanges :each | 
 			"Be lenient here, ignore everything that is garbage in the header"
@@ -153,8 +153,8 @@ RESTfulControllerAcceptNegotiator >> versionIn: acceptable canBeHandledBy: avail
 
 	acceptVersion := acceptable parameterAt: 'version' ifAbsent: [ ^ true ].
 	availableVersion := available parameterAt: 'version' ifAbsent: [ ^ false ].
-	acceptVersionParts := acceptVersion splitOn: $..
-	availableVersionParts := availableVersion splitOn: $..
+	acceptVersionParts := $. split: acceptVersion.
+	availableVersionParts := $. split: availableVersion.
 	acceptVersionParts
 		doWithIndex: [ :acceptPart :index | 
 			| availablePart |