1 files changed, 8 insertions, 0 deletions
diff --git a/libguile/procprop.c b/libguile/procprop.c
index ff4648d00..d37495b2b 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -82,6 +82,14 @@ scm_i_procedure_arity (SCM proc, int *req, int *opt, int *rest)
 
           return 1;
         }
+      else if (SCM_RTL_PROGRAM_P (proc))
+        {
+          *req = 0;
+          *opt = 0;
+          *rest = 1;
+
+          return 1;
+        }
       else
         return 0;
     }