Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -468,11 +468,12 @@
     ;; level
     (if (not not-iterated) ;; i.e. iterated
 	(let ((iterated-parent  (pathname-directory (conc lnkpath "/" item-path))))
 	  (debug:print 2 "INFO: Creating iterated parent " iterated-parent)
 	  (create-directory iterated-parent #t)))
-    (if (not (file-exists? lnkpath))
+    (if (not (or (file-exists? lnkpath)
+		 (symbolic-link? lnkpath)))
 	(create-symbolic-link toptest-path lnkpath))
     
     ;; The toptest path has been created, the link to the test in the linktree has
     ;; been created. Now, if this is an iterated test the real test dir must be created
     (if (not not-iterated) ;; this is an iterated test