diff --git a/ice-9/boot-9.scm b/ice-9/boot-9.scm
index 5d3738587..11eef1bd3 100644
--- a/ice-9/boot-9.scm
+++ b/ice-9/boot-9.scm
@@ -780,6 +780,8 @@
 
 (define (command-line) (program-arguments))
 
+;; This is mostly for the internal use of the code generated by
+;; scm_compile_shell_switches.
 (define (load-user-init)
   (define (has-init? dir)
     (let ((path (in-vicinity dir ".guile")))