--- ports.test.~1.28.~	1970-01-01 10:00:01.000000000 +1000
+++ ports.test	2003-09-22 13:49:23.000000000 +1000
@@ -301,6 +301,14 @@
     (pass-if "output check"
 	     (string=? text result))))
 
+(with-test-prefix "call-with-output-string"
+
+  ;; In Guile 1.6.4, closing the port resulted in a segv, check that doesn't
+  ;; occur.
+  (pass-if-exception "proc closes port" exception:wrong-type-arg
+    (call-with-output-string close-port)))
+
+
 
 
 ;;;; Soft ports.  No tests implemented yet.