diff --git a/libguile/vports.c b/libguile/vports.c
index 0ee68002b..0c8fb2a1e 100644
--- a/libguile/vports.c
+++ b/libguile/vports.c
@@ -59,19 +59,6 @@
  */
 
 
-
-static int prinsfpt SCM_P ((SCM exp, SCM port, scm_print_state *pstate));
-
-static int 
-prinsfpt (exp, port, pstate)
-     SCM exp;
-     SCM port;
-     scm_print_state *pstate;
-{
-  scm_prinport (exp, port, "soft");
-  return !0;
-}
-
 static void
 sfflush (SCM port)
 {
@@ -95,11 +82,6 @@ sfflush (SCM port)
     }
 }
 
-static void
-sf_read_flush (SCM port, int offset)
-{
-}
-
 /* string output proc (element 1) is no longer called.  */
 
 /* calling the flush proc (element 2) is in case old code needs it,
@@ -170,33 +152,18 @@ scm_make_soft_port (pv, modes)
 }
 
 
-static int 
-noop0 (SCM port)
+void scm_make_sfptob (void); /* Called from ports.c */
+
+void
+scm_make_sfptob ()
 {
-  return 0;
+  long tc = scm_make_port_type ("soft", sf_fill_buffer, sfflush);
+  scm_set_ptob_mark (tc, scm_markstream);
+  scm_set_ptob_close (tc, sfclose);
 }
 
-
-scm_ptobfuns scm_sfptob =
-{
-  scm_markstream,
-  noop0,
-  prinsfpt,
-  0,
-  sfflush,
-  sf_read_flush,
-  sfclose,
-  sf_fill_buffer,
-  0,
-  0,
-  0,
-};
-
-
-
 void
 scm_init_vports ()
 {
 #include "vports.x"
 }
-
diff --git a/libguile/vports.h b/libguile/vports.h
index 4d9517a73..92dc24620 100644
--- a/libguile/vports.h
+++ b/libguile/vports.h
@@ -46,11 +46,6 @@
 
 #include "libguile/__scm.h"
 
-extern scm_ptobfuns scm_sfptob;
-
-
-
-
 
 
 extern SCM scm_make_soft_port SCM_P ((SCM pv, SCM modes));