X-Git-Url: https://git.hcoop.net/bpt/guile.git/blobdiff_plain/adf8616fabbf3248cfbe4f075b5f2c02fed9e5c2..aafb4ed72414dd0dccc6ff27a59318adfda26abf:/libguile/vm-i-system.c

diff --git a/libguile/vm-i-system.c b/libguile/vm-i-system.c
index 1b4136f3f..474fe7883 100644
--- a/libguile/vm-i-system.c
+++ b/libguile/vm-i-system.c
@@ -1660,6 +1660,8 @@ VM_DEFINE_INSTRUCTION (91, fluid_ref, "fluid-ref", 0, 1, 1)
   else
     {
       SCM val = SCM_SIMPLE_VECTOR_REF (fluids, num);
+      if (scm_is_eq (val, SCM_UNDEFINED))
+        val = SCM_I_FLUID_DEFAULT (*sp);
       if (SCM_UNLIKELY (scm_is_eq (val, SCM_UNDEFINED)))
         {
           finish_args = *sp;