diff --git a/Code/Basic/basic.lisp b/Code/Basic/basic.lisp
index db16370..0cb1f98 100644
--- a/Code/Basic/basic.lisp
+++ b/Code/Basic/basic.lisp
@@ -74,7 +74,7 @@
     (if (null entry)
         nil
         (inline-data entry))))
-(defmethod (setf sys:operator-inline) (new client (env basic-environment) name)
+(defmethod (setf sys:operator-inline-data) (new client (env basic-environment) name)
   (setf (inline-data (ensure-operator-entry client name env)) new))
 
 (defmethod sys:operator-ftype (client (env basic-environment) name)