--- feature.c.~1.62.2.1.~	2006-02-14 08:58:57.000000000 +1100
+++ feature.c	2007-01-13 17:41:19.000000000 +1100
@@ -76,6 +76,21 @@
   scm_fluid_set_x (progargs_fluid, args);
 }
 
+SCM_DEFINE (scm_set_program_arguments_scm, "set-program-arguments", 1, 0, 0, 
+	    (SCM lst),
+	    "Set the command line arguments to be returned by\n"
+	    "@code{program-arguments} (and @code{command-line}).  @var{lst}\n"
+	    "should be a list of strings, the first of which is the program\n"
+	    "name (either a script name, or just @code{\"guile\"}).\n"
+	    "\n"
+	    "Program arguments are held in a fluid and therefore have a\n"
+	    "separate value in each Guile thread.")
+#define FUNC_NAME s_scm_program_arguments
+{
+  return scm_fluid_set_x (progargs_fluid, lst);
+}
+#undef FUNC_NAME
+