From 55f8c6f1ca30aa998f5c1306f04c5eb50dc46b19 Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 14 Apr 2003 20:13:50 +0000
Subject: [PATCH] Fix

---
 oop/goops.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

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