请教高手，为啥最后两句有时候能写入注册表，有时候不行

jsygsl

;str为交互输入的文件名。
          (setq AppLoadPath (strcat "HKEY_CURRENT_USER\\"   
                                     (vlax-product-key) "\\Profiles\\" (getvar "cprofile")
                                     "\\Dialogs\\Appload\\Startup"
                             )
           )
          
           (setq NewNum (itoa (1+ (read (vl-registry-read AppLoadPath   
                                                          "NumStartup"
                                        )
                                  )
                              )
                        )
           )

          (setq ni 1 startlist '())
        (if (> (atoi newnum) 1)
          (while (< ni (atoi newnum))   ;生成自启动程序列表startlist
               (setq startlist (cons (vl-registry-read AppLoadPath (strcat (itoa ni) "Startup")) startlist))
               (setq ni (1+ ni))
          )
        )

     (if (= (vl-position str startlist) nil)
          (progn
           (princ "\n startlist=") (princ startlist)
           (princ "\n apploadpath=") (princ apploadpath)
           (princ "\n newnum=") (princ newnum)
           (princ "\n str=") (princ str)
           (vl-registry-write AppLoadPath "NumStartup" NewNum)          ;在注册表中，写入自动启动文件的数目
           (vl-registry-write AppLoadPath (strcat NewNum "Startup") str) ;在注册表中，写入自动启动的文件
           )
     )
上述princ语句执行的变量都存在，但写的语句执行完有时候却写不进去。（备注：写不进去注册表和if语句无关）