diff -uwbr jde-2.2.9beta12/lisp/jde-ant.el jde-2.2.9beta12-my/lisp/jde-ant.el
--- jde-2.2.9beta12/lisp/jde-ant.el	2002-09-11 06:24:56 +0400
+++ jde-2.2.9beta12-my/lisp/jde-ant.el	2002-09-17 20:05:59 +0400
@@ -439,13 +439,14 @@
 
 (defun jde-ant-escape (target)
   "Looks for \ characters and escape them, i.e. \\"
-  (let (temp c)
+  (let ((temp nil) c)
+    (when (not (null target))
     (while (not (string= target ""))
       (setq c (substring target 0 1)) 
       (if (string= c "\\") 
           (setq temp (concat temp c)))
       (setq temp (concat temp c))
-      (setq target (substring target 1)))
+	  (setq target (substring target 1))))
     temp))
      
 (defun jde-ant-compile-internal (command error-message)