diff --git a/library/compiler/compiler.factor b/library/compiler/compiler.factor
index c77899bcba..c0e2640944 100644
--- a/library/compiler/compiler.factor
+++ b/library/compiler/compiler.factor
@@ -25,7 +25,7 @@ M: compound (compile) ( word -- )
 : precompile ( word -- )
     #! Print linear IR of word.
     [
-        word-def dataflow optimize linearize simplify [.]
+        word-def dataflow optimize linearize simplify sequence.
     ] with-scope ;
 
 : compile-postponed ( -- )
diff --git a/library/inference/inference.factor b/library/inference/inference.factor
index 489ae2d941..a138a5b3e0 100644
--- a/library/inference/inference.factor
+++ b/library/inference/inference.factor
@@ -17,7 +17,7 @@ M: inference-error error. ( error -- )
     "! Inference error:" print
     dup inference-error-message print
     "! Recursive state:" print
-    inference-error-rstate [.] ;
+    inference-error-rstate sequence. ;
 
 M: value literal-value ( value -- )
     {
diff --git a/library/syntax/prettyprint.factor b/library/syntax/prettyprint.factor
index db123a815b..4dd4b41433 100644
--- a/library/syntax/prettyprint.factor
+++ b/library/syntax/prettyprint.factor
@@ -321,9 +321,9 @@ M: wrapper pprint* ( wrapper -- )
 : short. ( object -- )
     dup unparse-short swap write-object terpri ;
 
-: [.] ( sequence -- ) [ short. ] each ;
+: sequence. ( sequence -- ) [ short. ] each ;
 
-: stack. reverse-slice [.] ;
+: stack. reverse-slice sequence. ;
 
 : .s datastack stack. ;
 : .r callstack stack. ;
diff --git a/library/tools/debugger.factor b/library/tools/debugger.factor
index de0cc9432c..57a0bc547c 100644
--- a/library/tools/debugger.factor
+++ b/library/tools/debugger.factor
@@ -95,8 +95,8 @@ M: string error. ( error -- ) print ;
 
 M: object error. ( error -- ) . ;
 
-: :s ( -- ) "error-datastack"  get reverse [.] ;
-: :r ( -- ) "error-callstack"  get reverse [.] ;
+: :s ( -- ) "error-datastack"  get stack. ;
+: :r ( -- ) "error-callstack"  get stack. ;
 
 : :get ( var -- value ) "error-namestack" get (get) ;
 
diff --git a/library/tools/word-tools.factor b/library/tools/word-tools.factor
index 597300d3ad..af10d0d6bd 100644
--- a/library/tools/word-tools.factor
+++ b/library/tools/word-tools.factor
@@ -12,7 +12,7 @@ prettyprint io strings sequences math hashtables parser ;
 : vocab-apropos. ( substring vocab -- )
     #! List all words in a vocabulary that contain a string.
     tuck vocab-apropos dup [
-        "IN: " write swap print [.]
+        "IN: " write swap print sequence.
     ] [
         2drop
     ] ifte ;