diff --git a/core/slots/slots.factor b/core/slots/slots.factor
index 63c0319c1c..6bb854daf6 100755
--- 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 ;