diff --git a/bootstrap.fs b/bootstrap.fs
index 6c486cf..b288229 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -616,7 +616,8 @@ allot-cell : &find! [ ' L , , ] ; \ ( c-addr -- nt ) Throw exception at error
 : nip   swap drop ;                 \ ( a b -- b )
 : over  >r dup r> swap ;            \ ( a b -- a b a )
 : tuck  dup -rot ;                  \ ( a b -- b a b )
-: pick  cells sp@ + cell + @ ;      \ ( wu ... x0 u -- xu ... x0 xu )
+: pick  cells sp@ + cell + @ ;      \ ( xu ... x0 u -- xu ... x0 xu )
+
 
 : 2drop drop drop ;                 \ ( a b -- )
 : 3drop 2drop drop ;                \ ( a b c -- )