Re: SIGSEGV & open-pipe

	BTW, are <strange id>s normal in the following output?  Except
	that looking a bit strange, they seem to be otherwise harmless.

## x86-64 build
$ ~/devel/scheme48-99fb63e0ed13c-1/+build-2/go 
Welcome to Scheme 48 1.9T (made by ivan on Mon Oct 20 22:01:14 NOVST 2008)
Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
Please report bugs to [email protected].
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> ,new-package 
263> ,structure foo (export) 
foo> ,open posix-i/o 
foo> (let ((l (call-with-values open-pipe list))) (write l) (newline) 1)
(#{input-port #{input-channel "pipe" 3}} #{output-port #{output-channel "pipe" 4}})
1
foo> ,collect
Channel closed: <strange id> 3
Before: 2241295 out of 3000000 words available
After:  2289176 out of 3000000 words available
foo> ,collect
Channel closed: pipe 4
Before: 2284513 out of 3000000 words available
After:  2289739 out of 3000000 words available

## x86-32 build
$ ~/devel/scheme48-311e075816f84-1/+build-2/go 
Welcome to Scheme 48 1.9T (made by ivan on Sun Oct 19 23:44:23 NOVST 2008)
Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees.
Please report bugs to [email protected].
Get more information at http://www.s48.org/.
Type ,? (comma question-mark) for help.
> ,new-package 
263> ,structure foo (export) 
foo> ,open posix-i/o 
foo> (let ((l (call-with-values open-pipe list))) (write l) (newline) 1)
(#{input-port #{input-channel "pipe" 3}} #{output-port #{output-channel "pipe" 4}})
1
foo> ,collect 
Channel closed: <strange id> 3
Before: 1953564 out of 3000000 words available
After:  2165687 out of 3000000 words available
foo> ,collect 
Channel closed: pipe 4
Before: 2161006 out of 3000000 words available
After:  2166764 out of 3000000 words available