diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index 019141b..471eae0 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -258,11 +258,12 @@
 (define reaped-procs '())	; Reaped, but not yet waited. 
 
 (define (filter-weak-ptr-list pred lis)
-  (reverse (reduce '() (lambda (wptr result)
+  (reverse (reduce (lambda (wptr result)
 			 (let ((val (weak-pointer-ref wptr)))
 			   (if (and val (pred val))
 			       (cons wptr result)
 			       result)))
+		   '()
 		   lis)))
 
 ;;; Add a newly-reaped proc to the list.