diff --git a/basis/html/html.factor b/basis/html/html.factor
index 7016e3b8d9..f10dc8f25a 100644
--- a/basis/html/html.factor
+++ b/basis/html/html.factor
@@ -1,7 +1,7 @@
! Copyright (C) 2004, 2009 Chris Double, Daniel Ehrenberg,
! Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
-USING: accessors kernel xml.data xml.writer xml.syntax
+USING: accessors kernel xml.data xml.writer xml.syntax
urls.encoding ;
IN: html
diff --git a/basis/sequences/cords/cords.factor b/basis/sequences/cords/cords.factor
index 74b513261f..54da935611 100644
--- a/basis/sequences/cords/cords.factor
+++ b/basis/sequences/cords/cords.factor
@@ -106,7 +106,7 @@ M: cord vunordered? [ vunordered? ] [ call-next-method ] cord-2map ;
M: cord vany? [ vany? ] cord-both or ; inline
M: cord vall? [ vall? ] cord-both and ; inline
M: cord vnone? [ vnone? ] cord-both and ; inline
-M: cord vshuffle-elements
+M: cord vshuffle-elements
[ [ head>> ] [ tail>> ] bi ] [ split-shuffle ] bi*
[ vshuffle2-elements ] bi-curry@ 2bi cord-append ; inline
diff --git a/basis/ui/gadgets/status-bar/status-bar.factor b/basis/ui/gadgets/status-bar/status-bar.factor
index 73b763c59f..48a13c05ff 100644
--- a/basis/ui/gadgets/status-bar/status-bar.factor
+++ b/basis/ui/gadgets/status-bar/status-bar.factor
@@ -22,7 +22,7 @@ IN: ui.gadgets.status-bar
: open-status-window ( gadget title/attributes -- )
?attributes f >>status
- dup status>>
+ dup status>>
{ 7 2 } status-bar-background >>interior
f track-add
open-world-window ;
diff --git a/basis/ui/tools/browser/browser.factor b/basis/ui/tools/browser/browser.factor
index f4e556af56..1f15dc76df 100644
--- a/basis/ui/tools/browser/browser.factor
+++ b/basis/ui/tools/browser/browser.factor
@@ -68,7 +68,7 @@ CONSTANT: next 1
: add-help-header ( track -- track )
dup { 3 3 }
- help-header-background >>interior
+ help-header-background >>interior
{ 1 0 } >>fill f track-add ;
: ( browser-gadget direction -- gadget )
diff --git a/basis/ui/tools/error-list/error-list.factor b/basis/ui/tools/error-list/error-list.factor
index e20d64c107..d553af3b62 100644
--- a/basis/ui/tools/error-list/error-list.factor
+++ b/basis/ui/tools/error-list/error-list.factor
@@ -130,7 +130,7 @@ TUPLE: error-display < track ;
vertical error-display new-track with-lines
swap error>> >>model
dup model>> [ [ print-error ] when* ]
- margins white-interior 1 track-add
+ margins white-interior 1 track-add
add-toolbar ;
: com-inspect ( error-display -- )
diff --git a/basis/windows/crypt32/crypt32.factor b/basis/windows/crypt32/crypt32.factor
index a588c78144..61e46c474f 100644
--- a/basis/windows/crypt32/crypt32.factor
+++ b/basis/windows/crypt32/crypt32.factor
@@ -16,7 +16,7 @@ STRUCT: CRYPT_BIT_BLOB
{ cUnusedBits DWORD } ;
TYPEDEF: CRYPT_BIT_BLOB* PCRYPT_BIT_BLOB
-STRUCT: CRYPTOAPI_BLOB
+STRUCT: CRYPTOAPI_BLOB
{ cbData DWORD }
{ pbData BYTE* } ;
diff --git a/extra/modern/paths/paths.factor b/extra/modern/paths/paths.factor
index 86a9c265c7..161e2888c3 100644
--- a/extra/modern/paths/paths.factor
+++ b/extra/modern/paths/paths.factor
@@ -152,7 +152,7 @@ CONSTANT: functor-vocabs {
: core-source-paths ( -- seq )
core-vocabs modern-source-paths reject-some-paths ;
-: basis-source-paths ( -- seq )
+: basis-source-paths ( -- seq )
basis-vocabs functor-vocabs diff
modern-source-paths reject-some-paths ;
: extra-source-paths ( -- seq )
diff --git a/extra/snake-game/snake-game.factor b/extra/snake-game/snake-game.factor
index 39fca95b6e..17b469e9af 100644
--- a/extra/snake-game/snake-game.factor
+++ b/extra/snake-game/snake-game.factor
@@ -4,7 +4,7 @@ USING: accessors sets snake-game.ui ui ui.gadgets.status-bar ui.gadgets.worlds ;
IN: snake-game
: ( -- world-attributes )
- "Snake Game" >>title
+ "Snake Game" >>title
[
{ maximize-button resize-handles } without
] change-window-controls ;
diff --git a/extra/snake-game/sprites/sprites.factor b/extra/snake-game/sprites/sprites.factor
index 8b95f42689..641f111d94 100644
--- a/extra/snake-game/sprites/sprites.factor
+++ b/extra/snake-game/sprites/sprites.factor
@@ -54,7 +54,7 @@ IN: snake-game.sprites
dup 1 { "body-right-up" "body-down-left" } assoc-with-value-like
dup 2 { "body-down-right" "body-left-up" } assoc-with-value-like
dup 3 { "body-right-right" "body-left-left" } assoc-with-value-like
- dup 4 { "body-up-up" "body-down-down" } assoc-with-value-like
+ dup 4 { "body-up-up" "body-down-down" } assoc-with-value-like
dup 5 { "body-up-right" "body-left-down" } assoc-with-value-like
dup 6 { "body-right-down" "body-up-left" } assoc-with-value-like
dup [ { 1 2 3 4 5 6 } ] dip [ delete-at ] curry each ;