diff --git a/scsh/procobj.scm b/scsh/procobj.scm
index cf550a8..a114666 100644
--- a/scsh/procobj.scm
+++ b/scsh/procobj.scm
@@ -301,7 +301,7 @@
 					  (cons wptr result)
 					  result)))
 	      '()
-	      list))
+	      lis))
 
 ;;; Add a newly-reaped proc to the list.
 (define (add-reaped-proc! pid status)