Fix

[bpt/guile.git] / oop / goops.scm

diff --git a/oop/goops.scm b/oop/goops.scm
index e27ce52..4eb8a0c 100644 (file)
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -1231,7 +1231,7 @@
                       (if (or (integer? g-n-s)
                               (zero? size))
                           g-n-s
-                          (append g-n-s index size))))))
+                          (append g-n-s (list index size)))))))
        slots))
 
 ;;; compute-cpl