diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index b8761c918..b15492ffe 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,5 +1,8 @@
 2000-08-12  Neil Jerram  <neil@ossau.uklinux.net>
 
+	* vports.c (s_scm_make_soft_port): Docstring updated so that
+	example is correct.
+
 	* strop.c: Docstring fixes - quotation marks and backslashes
 	needed quoting.
 
diff --git a/libguile/vports.c b/libguile/vports.c
index 264c1c032..d36888606 100644
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -175,7 +175,7 @@ SCM_DEFINE (scm_make_soft_port, "make-soft-port", 2, 0, 0,
 	    "            (lambda () (char-upcase (read-char)))\n"
 	    "            (lambda () (display \"@@\" stdout)))\n"
 	    "           \"rw\"))\n\n"
-	    "(write p p) @result{} #<input-output-soft#\space45d10#\>\n"
+	    "(write p p) @result{} #<input-output: soft 8081e20>\n"
 	    "@end example")
 #define FUNC_NAME s_scm_make_soft_port
 {