diff --git a/drv/acia.fs b/drv/acia.fs
index 7670d45..55628cb 100644
--- a/drv/acia.fs
+++ b/drv/acia.fs
@@ -29,7 +29,7 @@ ACIA_MEM: Address in memory that can be used variables shared
 
 : ACIA$
     H@ DUP DUP ACIA( ! ACIAR> !
-    1+ ACIAW> ! ( write index starts one position later )
+    1+ ACIAW> !  ( write index starts one position later )
     ACIABUFSZ ALLOT
     H@ ACIA) !
 ( setup ACIA
@@ -42,7 +42,7 @@ ACIA_MEM: Address in memory that can be used variables shared
 
 ( setup interrupt )
     ( 4e == INTJUMP )
-    0xc3 0x4e RAM+ C! ( JP upcode )
+    0xc3 0x4e RAM+ C!  ( JP upcode )
     ['] ~ACIA 0x4f RAM+ !
     (im1)
 ;
diff --git a/forth/fmt.fs b/forth/fmt.fs
index a143e08..b5b1b6d 100644
--- a/forth/fmt.fs
+++ b/forth/fmt.fs
@@ -15,7 +15,7 @@
     DUP <0 IF '-' EMIT -1 * THEN
     _
     BEGIN
-    DUP '9' > IF DROP EXIT THEN ( stop indicator, we're done )
+    DUP '9' > IF DROP EXIT THEN  ( stop indicator, we're done )
     EMIT
     AGAIN
 ;
@@ -32,7 +32,7 @@
 : .x
     256 MOD     ( ensure < 0x100 )
     16 /MOD     ( l h )
-    _ EMIT ( l )
+    _ EMIT      ( l )
     _ EMIT
 ;
 
diff --git a/forth/link.fs b/forth/link.fs
index bdce7b8..7d432ea 100644
--- a/forth/link.fs
+++ b/forth/link.fs
@@ -33,7 +33,7 @@
     0x22 = NOT IF 2+ EXIT THEN
     ( it's a lit, skip to null char )
     ( a )
-    1+ ( we skip by 2, but the loop below is pre-inc... )
+    1+  ( we skip by 2, but the loop below is pre-inc... )
     BEGIN 1+ DUP C@ NOT UNTIL
     ( skip null char )
     1+
@@ -58,17 +58,17 @@
         )
         DROP
         2+          ( o ol a+2 )
-        ROT ROT 2DROP ( a )
+        ROT ROT 2DROP  ( a )
         EXIT
     THEN
     ROT             ( o a n ol )
-    < IF ( under limit, do nothing )
+    < IF  ( under limit, do nothing )
         SWAP DROP    ( a )
     ELSE
         ( o a )
-        SWAP OVER @ ( a o n )
-        -^          ( a n-o )
-        OVER !      ( a )
+        SWAP OVER @  ( a o n )
+        -^           ( a n-o )
+        OVER !       ( a )
     THEN
     ASKIP
 ;