--- strports.c.~1.98.~	1970-01-01 10:00:01.000000000 +1000
+++ strports.c	2003-09-22 13:39:47.000000000 +1000
@@ -333,7 +333,7 @@
                      FUNC_NAME);
   scm_call_1 (proc, p);
 
-  return scm_strport_to_string (p);
+  return scm_get_output_string (p);
 }
 #undef FUNC_NAME