diff --git a/src/lib/io.el b/src/lib/io.el
index 0c5517d..863988f 100644
--- a/src/lib/io.el
+++ b/src/lib/io.el
@@ -51,3 +51,8 @@ already opend buffer died after reading content."
 	)
     )
   )
+
+(defun io/join-path (a b)
+"safe join a and b addresses."
+
+)
diff --git a/src/lib/project.el b/src/lib/project.el
index 475b86b..ed95bef 100644
--- a/src/lib/project.el
+++ b/src/lib/project.el
@@ -33,7 +33,7 @@
   (setq unix-project-name (downcase (replace-regexp-in-string " " "_" project-name)))
   ;; if specified directory does not exists, shit will make it
   (setq project-path (read-directory-name "Project Path: " nil nil nil unix-project-name))
-  (log project-path)
+
   (if (not (file-exists-p project-path))
     (progn
       (mkdir project-path)
@@ -114,10 +114,11 @@ destenation file address created from template FILE name.
 
   (let (curfile destfile)
     (setq curfile (split-string FILE "/"))
-    (nbutlast curfile)
+    (setq curfile (car (last curfile)))
     (setq curfile (replace-regexp-in-string "__project__" unix-project-name curfile)) 
     (setq curfile (replace-regexp-in-string "\.tmpl" "" curfile)) 
     (setq destfile (concat project-path curfile))
+    (log destfile)
     )
 )
   
\ No newline at end of file