diff --git a/storage/folder.lisp b/storage/folder.lisp
index b48b980..d2013d3 100644
--- a/storage/folder.lisp
+++ b/storage/folder.lisp
@@ -5,7 +5,7 @@
   (:local-nicknames (:shape :scopes/shape)
                     (:tracking :scopes/storage/tracking)
                     (:util :scopes/util))
-  (:export #:folder #:root #:put-new
+  (:export #:folder #:root #:create
            #:make-container))
 
 (in-package :scopes/storage/folder)
@@ -26,12 +26,9 @@
                  :storage storage))
 
 (defun root (cont)
-  (let ((f (tracking:make-item cont nil :root)))
-    (tracking:save f)))
+  (tracking:save (tracking:make-item cont nil :root)))
 
-(defun put-new (name parent)
-  (let* ((cont (tracking:container parent))
-         (pid (write-to-string (tracking:trackid parent)))
-         (f (tracking:make-item cont pid name)))
-    (util:lgi pid f)
-    (tracking:save f)))
+(defun create (name parent)
+  (let ((cont (tracking:container parent))
+        (pid (write-to-string (tracking:trackid parent))))
+    (tracking:save (tracking:make-item cont pid name))))
diff --git a/test/test-storage.lisp b/test/test-storage.lisp
index fbe38d7..a4f1d40 100644
--- a/test/test-storage.lisp
+++ b/test/test-storage.lisp
@@ -91,5 +91,5 @@
     (setf root (folder:root cont))
     (== (tracking:trackid root) 1)
     (== (shape:head-value root :parentid) nil)
-    (setf f1 (folder:put-new :child1 root))
+    (setf f1 (folder:create :child1 root))
     ))