diff --git a/usr/src/boot/forth/beadm.4th b/usr/src/boot/forth/beadm.4th
index 6ad4162c1e2e..1a6c888d0670 100644
--- a/usr/src/boot/forth/beadm.4th
+++ b/usr/src/boot/forth/beadm.4th
@@ -107,7 +107,7 @@ variable page_remainder
 	drop
 ;
 
-\ we are called with strings be_name menu_file, to simplify the stack
+\ we are called with strings be_name menu_file, to simplify the stack
 \ management, we open the menu and free the menu_file.
 : beadm_bootfs ( be_addr be_len maddr mlen -- addr len taddr tlen flag | flag )
 	0 to end_of_file?
@@ -450,7 +450,7 @@ builtin: beadm
 				\ set device name
 				name_buffer strget s" chain" compare
 				0= if
-					\ for chain, use the value as is
+					\ for chain, use the value as is
 					value_buffer strget
 				else
 					\ check last char in the name
diff --git a/usr/src/boot/forth/support.4th b/usr/src/boot/forth/support.4th
index 2abf48f70b0d..687ad7e8fd23 100644
--- a/usr/src/boot/forth/support.4th
+++ b/usr/src/boot/forth/support.4th
@@ -1246,8 +1246,8 @@ string current_file_name_ref	\ used to print the file name
   then
 		( addr len addr' len' total taddr )
   dup rot	( addr len addr' len' taddr taddr total )
-  swap !	( addr len addr' len' taddr )	\ store length
-  dup >r					\ save reference
+  swap !	( addr len addr' len' taddr )	\ store length
+  dup >r					\ save reference
   cell+						\ point to string area
   2dup 2>r	( addr len addr' len' taddr' )	( R: taddr len' taddr' )
   swap move	( addr len )
@@ -1700,9 +1700,9 @@ also builtins
     1 ['] load catch dup if
       ( addr0 len0 addr1 len1 ... args 1 error )
       >r			\ error code to R
-      drop			\ drop 1
+      drop			\ drop 1
       0 do 2drop loop		\ drop addr len pairs
-      r>			\ set flag for while
+      r>			\ set flag for while
     then
   while
     dup 0=