Fix predicate clobberage

core/classes/tuple/tuple-tests.factor

@@ -340,6 +340,19 @@ TUPLE: electronic-device ;
 [ f ] [ "laptop" get electronic-device? ] unit-test
 [ t ] [ "laptop" get computer? ] unit-test
 
+! Redefinition problem
+TUPLE: redefinition-problem ;
+
+UNION: redefinition-problem' redefinition-problem integer ;
+
+[ t ] [ 3 redefinition-problem'? ] unit-test
+
+TUPLE: redefinition-problem-2 ;
+
+"IN: classes.tuple.tests TUPLE: redefinition-problem < redefinition-problem-2 ;" eval
+
+[ t ] [ 3 redefinition-problem'? ] unit-test
+
 ! Hardcore unit tests
 USE: threads
 

core/classes/tuple/tuple.factor

@@ -140,12 +140,11 @@ PRIVATE>
     [ drop f tuple-class define-class ]
     [ nip define-tuple-slots ] [
         2drop
-        class-usages [
-            drop
+        class-usages keys [ tuple-class? ] subset [
             [ define-tuple-layout ]
             [ define-tuple-predicate ]
             bi
-        ] assoc-each
+        ] each
     ] 3tri ;
 
 : redefine-tuple-class ( class superclass slots -- )