diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index c1f8805b8..9f0f73e77 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -281,13 +281,6 @@
 ;;; {Keywords}
 ;;;
 
-(define (symbol->keyword symbol)
-  (make-keyword-from-dash-symbol (symbol-append '- symbol)))
-
-(define (keyword->symbol kw)
-  (let ((sym (symbol->string (keyword-dash-symbol kw))))
-    (string->symbol (substring sym 1 (string-length sym)))))
-
 (define (kw-arg-ref args kw)
   (let ((rem (member kw args)))
     (and rem (pair? (cdr rem)) (cadr rem))))