diff --git a/oop/goops.scm b/oop/goops.scm
index e27ce5220..4eb8a0cd3 100644
--- 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