Don't make a curry

diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 63c0319c1ce429251258b010169ccd47d83f941c..6bb854daf625d05d8598dc365f492d3f902723c8 100755 (executable)
--- a/core/slots/slots.factor
+++ b/core/slots/slots.factor
@@ -122,7 +122,7 @@ ERROR: bad-slot-value value class ;
         [
             \ over ,
             over reader-word 1quotation
-            [ dip call ] curry [ dip swap ] curry %
+            [ dip call ] curry [ ] like [ dip swap ] curry %
             swap setter-word ,
         ] [ ] make (( object quot -- object )) define-inline
     ] [ 2drop ] if ;