diff --git a/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm b/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm
index bf33fc5cd..31410437f 100644
--- a/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm
+++ b/TeXmacs/plugins/goldfish/progs/code/liii-keyword.scm
@@ -52,11 +52,20 @@
 (define (liii-uuid)
   (map symbol->string '(uuid4)))
 
+(define (liii-base64)
+  (map symbol->string '(string-base64-encode bytevector-base64-encode base64-encode string-base64-decode bytevector-base64-decode base64-decode)))
+
+(define (liii-bitwise)
+  (map symbol->string '(bitwise-not bitwise-and 
+  bitwise-ior bitwise-xor bitwise-or bitwise-nor bitwise-nand
+  bit-count arithmetic-shift
+  lognot logand logior logxor
+  ash)))
 
 (tm-define (liii-keywords)
   `(,@(liii-base) ,@(liii-check) ,@(liii-list)
     ,@(liii-string) ,@(liii-os) ,@(liii-queue)
-    ,@(liii-stack) ,@(liii-sys) ,@(liii-uuid)))
+    ,@(liii-stack) ,@(liii-sys) ,@(liii-uuid) ,@(liii-base64) ,@(liii-bitwise)))
 
 (tm-define (liii-keywords-define)
   (map symbol->string
diff --git a/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm b/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm
index 2dd232289..5de20f3ae 100644
--- a/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm
+++ b/TeXmacs/plugins/r7rs/progs/code/srfi-keyword.scm
@@ -116,3 +116,7 @@
       vector-any vector-every vector-copy vector-copy!
       vector-index vector-index-right vector-partition
       vector-swap!)))
+
+(tm-define (srfi-151-keywords)
+  (map symbol->string
+    '(bitwise-not bitwise-and bitwise-ior bitwise-xor bitwise-or bitwise-nor bitwise-nand bit-count arithmetic-shift)))