Index: /trunk/source/level-1/l1-clos.lisp
===================================================================
--- /trunk/source/level-1/l1-clos.lisp	(revision 12904)
+++ /trunk/source/level-1/l1-clos.lisp	(revision 12905)
@@ -44,5 +44,5 @@
 	    (shared-slots)
             (other-slots))
-    (dolist (s slotds (values (instance-slots) (shared-slots)))
+    (dolist (s slotds (values (instance-slots) (shared-slots) (other-slots)))
       (case (%slot-definition-allocation s)
         (:instance (instance-slots s))