diff --git a/README.md b/README.md
index aaa191d..1661964 100644
--- a/README.md
+++ b/README.md
@@ -84,9 +84,9 @@ $ ./planck < bootstrap.fs runtests.fs
 | <    | less      | ( a b -- c )    | c = (a < b)                             |
 | u    | uless     | ( a b -- c )    | c = (a unsigned< b)                     |
 | =    | equal     | ( a b -- c )    | c = (a == b)                            |
-| {    | shl       | ( a b -- c )    | c = a << b (logical)                    |
-| }    | shr       | ( a b -- c )    | c = a >> b (logical)                    |
-| )    | sar       | ( a b -- c )    | c = a >> b (arithmetic)                 |
+| (    | shl       | ( a b -- c )    | c = a << b (logical)                    |
+| )    | shr       | ( a b -- c )    | c = a >> b (logical)                    |
+| %    | sar       | ( a b -- c )    | c = a >> b (arithmetic)                 |
 | v    | argv      | ( -- a-addr u ) | argv and argc                           |
 | V    | version   | ( -- c-addr )   | Runtime infomation string               |
 
diff --git a/bootstrap.fs b/bootstrap.fs
index 018b863..2d1e362 100644
--- a/bootstrap.fs
+++ b/bootstrap.fs
@@ -56,9 +56,9 @@ l!
 \ '<' ( a b -- c )      c = (a < b)
 \ 'u' ( a b -- c )      c = (a unsigned< b)
 \ '=' ( a b -- c )      c = (a == b)
-\ '{' ( a b -- c )      c = a << b (logical)
-\ '}' ( a b -- c )      c = a >> b (logical)
-\ ')' ( a b -- c )      c = a >> b (arithmetic)
+\ '(' ( a b -- c )      c = a << b (logical)
+\ ')' ( a b -- c )      c = a >> b (logical)
+\ '%' ( a b -- c )      c = a >> b (arithmetic)
 \ 'v' ( -- a-addr u )   argv and argc
 \ 'V' ( -- c-addr )     Runtime information string