diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index 4e3ec69..d5b3e8e 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -84,7 +84,7 @@
 
 (define *autoreap-policy* 'early) ; Not exported from this module.
 
-(define (autoreap-policy  maybe-policy)
+(define (autoreap-policy . maybe-policy)
   (let ((old-policy *autoreap-policy*))
     (if (pair? maybe-policy)
 	(let ((new-policy (car maybe-policy)))