diff --git a/basis/cocoa/cocoa.factor b/basis/cocoa/cocoa.factor
index 373fcd6691..4661a0e3e0 100644
--- a/basis/cocoa/cocoa.factor
+++ b/basis/cocoa/cocoa.factor
@@ -16,7 +16,7 @@ SYNTAX: \send\ scan-token dup remember-send suffix! \ send suffix! ;
 
 SYNTAX: \?send\ scan-token dup remember-send suffix! \ ?send suffix! ;
 
-SYNTAX: \SEL:
+SYNTAX: \selector\
     scan-token
     [ remember-send ]
     [ <selector> suffix! \ cocoa.messages:selector suffix! ] bi ;
diff --git a/basis/ui/backend/cocoa/views/views.factor b/basis/ui/backend/cocoa/views/views.factor
index 43c129b8d2..5b682d1c43 100644
--- a/basis/ui/backend/cocoa/views/views.factor
+++ b/basis/ui/backend/cocoa/views/views.factor
@@ -166,13 +166,13 @@ CONSTANT: selector>action H{
 
     METHOD: void prepareOpenGL [
 
-        self SEL: setWantsBestResolutionOpenGLSurface:
+        self selector\ setWantsBestResolutionOpenGLSurface:
         send\ respondsToSelector: c-bool> [
 
-            self SEL: setWantsBestResolutionOpenGLSurface: 1
+            self selector\ setWantsBestResolutionOpenGLSurface: 1
             void f "objc_msgSend" { id SEL char } f alien-invoke
 
-            self SEL: backingScaleFactor
+            self selector\ backingScaleFactor
             double f "objc_msgSend" { id SEL } f alien-invoke
 
             dup 1.0 > [
@@ -435,7 +435,7 @@ CONSTANT: selector>action H{
     METHOD: void windowDidChangeBackingProperties: id notification
     [
 
-        notification send\ object dup SEL: backingScaleFactor
+        notification send\ object dup selector\ backingScaleFactor
         send\ respondsToSelector: c-bool> [
             { double { id SEL } } ?send\ backingScaleFactor
 
diff --git a/basis/ui/theme/switching/switching.factor b/basis/ui/theme/switching/switching.factor
index e64b36b158..78be6922b6 100644
--- a/basis/ui/theme/switching/switching.factor
+++ b/basis/ui/theme/switching/switching.factor
@@ -39,7 +39,7 @@ IN: ui.theme.switching
     listener-word-style text-color foreground update-style
 
     ! prettyprint.stylesheet
-    { postpone: USING: postpone: USE: postpone: IN: }
+    { postpone: \USING: postpone: \USE: postpone: \IN: }
     [ "word-style" word-prop [ dim-color foreground  ] dip set-at ] each
     base-word-style text-color foreground update-style
     highlighted-word-style highlighted-word-color foreground update-style
diff --git a/extra/modern/modern-tests.factor b/extra/modern/modern-tests.factor
index 533df0ed8e..b2f6f56781 100644
--- a/extra/modern/modern-tests.factor
+++ b/extra/modern/modern-tests.factor
@@ -90,4 +90,4 @@ IN: modern.tests
 
 { { "\\[[" } } [ "\\[[" string>literals >strings ] unit-test
 { { "\\[=[" } } [ "\\[=[" string>literals >strings ] unit-test
-{ { "\\[==[" } } [ "\\[==[" string>literals >strings ] unit-test
\ No newline at end of file
+{ { "\\[==[" } } [ "\\[==[" string>literals >strings ] unit-test