diff --git a/src/play_clj/core_2d.clj b/src/play_clj/core_2d.clj
index 2dda0bf..a4673c1 100644
--- a/src/play_clj/core_2d.clj
+++ b/src/play_clj/core_2d.clj
@@ -43,7 +43,7 @@
 
 ; textures
 
-(defn create-image*
+(defn image*
   [img]
   (cond
     (string? img)
@@ -51,11 +51,11 @@
     :else
     (TextureRegion. ^TextureRegion img)))
 
-(defmacro create-image
-  [img & options]
-  `(utils/calls! ^TextureRegion (create-image* ~img) ~@options))
-
 (defmacro image
+  [img & options]
+  `(utils/calls! ^TextureRegion (image* ~img) ~@options))
+
+(defmacro image!
   [img k & options]
   `(utils/call! ^TextureRegion ~img ~k ~@options))