diff --git a/libguile/fluids.c b/libguile/fluids.c
index 6d048a005..3e717006e 100644
--- a/libguile/fluids.c
+++ b/libguile/fluids.c
@@ -181,10 +181,10 @@ SCM_DEFINE (scm_make_fluid, "make-fluid", 0, 0, 0,
 }
 #undef FUNC_NAME
 
-SCM_DEFINE (scm_make_undefined_fluid, "make-undefined-fluid", 0, 0, 0,
+SCM_DEFINE (scm_make_unbound_fluid, "make-unbound-fluid", 0, 0, 0,
             (),
-            "")
-#define FUNC_NAME s_scm_make_undefined_fluid
+            "Make a fluid that is initially unbound.")
+#define FUNC_NAME s_scm_make_unbound_fluid
 {
   SCM f = new_fluid ();
   scm_fluid_set_x (f, SCM_UNDEFINED);
diff --git a/libguile/fluids.h b/libguile/fluids.h
index db82203fe..66e398554 100644
--- a/libguile/fluids.h
+++ b/libguile/fluids.h
@@ -60,7 +60,7 @@
 #endif
 
 SCM_API SCM scm_make_fluid (void);
-SCM_API SCM scm_make_undefined_fluid (void);
+SCM_API SCM scm_make_unbound_fluid (void);
 SCM_API int scm_is_fluid (SCM obj);
 SCM_API SCM scm_fluid_p (SCM fl);
 SCM_API SCM scm_fluid_ref (SCM fluid);
diff --git a/module/language/elisp/runtime.scm b/module/language/elisp/runtime.scm
index 47306e627..025dc9629 100644
--- a/module/language/elisp/runtime.scm
+++ b/module/language/elisp/runtime.scm
@@ -73,7 +73,7 @@
   (let ((intf (resolve-interface module))
         (resolved (resolve-module module)))
     (if (not (module-defined? intf sym))
-        (let ((fluid (make-undefined-fluid)))
+        (let ((fluid (make-unbound-fluid)))
           (module-define! resolved sym fluid)
           (module-export! resolved `(,sym))))))