diff --git a/README.md b/README.md
index 2771676..64e8074 100644
--- a/README.md
+++ b/README.md
@@ -45,7 +45,7 @@ This will generate the following functions:
 
 | Function Name | Arguments | Description |
 |---------------|-----------|-------------|
-| `get-profile-object` | (&key `query`) | Retrieve the profile object. |
+| `get-profile` | (&key `query`) | Retrieve the profile object. |
 | `update-profile` | (`content`) | Update the content of the profile object. |
 
 ### 📄 License
diff --git a/src/client.lisp b/src/client.lisp
index 578167a..3800eae 100644
--- a/src/client.lisp
+++ b/src/client.lisp
@@ -99,10 +99,10 @@
 
 (defmacro define-object-client (endpoint)
   (let ((str-endpoint (string-downcase (string endpoint)))
-        (get-object (symbolicate 'get- endpoint '-object))
+        (get (symbolicate 'get- endpoint))
         (update (symbolicate 'update- endpoint)))
     `(list
-       (defun ,get-object (&key query)
+       (defun ,get (&key query)
          (%request :get ,str-endpoint :query query))
        (defun ,update (content)
          (%request :patch ,str-endpoint :content content)))))
diff --git a/tests/client.lisp b/tests/client.lisp
index 4a3a09e..18b1a58 100644
--- a/tests/client.lisp
+++ b/tests/client.lisp
@@ -42,5 +42,5 @@
 
   (testing "define-object-client creates expected functions"
     (define-object-client config)
-    (ok (fboundp 'get-config-object))
+    (ok (fboundp 'get-config))
     (ok (fboundp 'update-config))))