Fix typo

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index 3a92d5193cf69b05680a2760161f42ecfd2b571a..56e995899b815024a58a22bc54c8ce1d891514be 100755 (executable)
--- a/core/classes/mixin/mixin.factor
+++ b/core/classes/mixin/mixin.factor
@@ -101,4 +101,4 @@ M: mixin-instance definition drop f ;
 
 M: mixin-instance forget*
     [ class>> ] [ mixin>> ] bi
-    mixin-class? [ remove-mixin-instance ] [ 2drop ] if ;
+    dup mixin-class? [ remove-mixin-instance ] [ 2drop ] if ;