From 20380e613ec483ac4e54570f0f2cf0e7ad8c2344 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Sun, 31 Aug 2008 07:55:34 -0500
Subject: [PATCH] Fix typo

---
 core/classes/mixin/mixin.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/classes/mixin/mixin.factor b/core/classes/mixin/mixin.factor
index 3a92d5193c..56e995899b 100755
--- 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 ;