threadsafe access to scm_ptobs

[bpt/guile.git] / libguile / goops.c

diff --git a/libguile/goops.c b/libguile/goops.c
index 3c82d6d..d82a42f 100644 (file)
--- a/libguile/goops.c
+++ b/libguile/goops.c
@@ -2698,7 +2698,7 @@ create_port_classes (void)
 {
   long i;
 
-  for (i = 0; i < scm_numptob; ++i)
+  for (i = scm_c_num_port_types () - 1; i >= 0; i--)
     scm_make_port_classes (i, SCM_PTOBNAME (i));
 }