diff --git a/oop/goops.scm b/oop/goops.scm
index 0a130601d..531655cca 100644
--- a/oop/goops.scm
+++ b/oop/goops.scm
@@ -1,6 +1,6 @@
 ;;; installed-scm-file
 
-;;;; 	Copyright (C) 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
+;;;; 	Copyright (C) 1998, 1999, 2000, 2001, 2003 Free Software Foundation, Inc.
 ;;;; 
 ;;;; This program is free software; you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -1081,7 +1081,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