diff --git a/extra/constructors/constructors.factor b/extra/constructors/constructors.factor
index 30d286eb96..2eab91310f 100644
--- a/extra/constructors/constructors.factor
+++ b/extra/constructors/constructors.factor
@@ -13,7 +13,7 @@ MACRO: set-slots ( slots -- quot )
     [ new ] dip set-slots ; inline
 
 : define-constructor ( name class effect body -- )
-    [ [ in>> ] dip '[ _ _ construct @ ] ] [ drop ] 2bi
+    [ [ in>> '[ _ _ construct ] ] dip compose ] [ drop ] 2bi
     define-declared ;
 
 : CONSTRUCTOR: