diff --git a/lib/projects.tcl b/lib/projects.tcl
index df333ba..5474567 100644
--- a/lib/projects.tcl
+++ b/lib/projects.tcl
@@ -473,7 +473,8 @@ proc OpenProj {nbNode} {
 
 
 proc AddNewProjectIntoTree {proj} {
-    global workDir tree imgDir fontNormal
+    global workDir imgDir fontNormal
+    set tree .frmBody.frmCat.noteBook.fprojects.frmTree.tree 
     lappend rList [list [file join $workDir $proj]]
     set projFile [open [file join $workDir $proj] r]
     set prjName [file rootname $proj]
@@ -1006,3 +1007,4 @@ proc InsertTitle {newFile type} {
 
 
 
+