From d3b2650ce9c2202cb20d5774b682de66fe55caeb Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Fri, 6 Feb 2009 02:42:03 -0600
Subject: [PATCH] Update alien.destructors for DEFINE-CLASS

---
 basis/alien/destructors/destructors.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/alien/destructors/destructors.factor b/basis/alien/destructors/destructors.factor
index 99fc9d1d97..6c55528b70 100644
--- a/basis/alien/destructors/destructors.factor
+++ b/basis/alien/destructors/destructors.factor
@@ -7,7 +7,7 @@ SLOT: alien
 
 FUNCTOR: define-destructor ( F -- )
 
-F-destructor DEFINES ${F}-destructor
+F-destructor DEFINES-CLASS ${F}-destructor
 <F-destructor> DEFINES <${F}-destructor>
 &F DEFINES &${F}
 |F DEFINES |${F}