diff --git a/test-suite/tests/ports.test b/test-suite/tests/ports.test
index 956aac191..c7993c49f 100644
--- a/test-suite/tests/ports.test
+++ b/test-suite/tests/ports.test
@@ -298,6 +298,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.