diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 1baca459f..0227f2d83 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -868,7 +868,7 @@
 		(left-part (string-append
 			    (with-output-to-string
 			      (lambda ()
-				(map (lambda (x) (display (keyword-symbol x)) (display " "))
+				(map (lambda (x) (display (keyword->symbol x)) (display " "))
 				     opts-proper)))
 			    arg-name))
 		(middle-part (if (and (< (string-length left-part) 30)