Index: dashboard.scm
==================================================================
--- dashboard.scm
+++ dashboard.scm
@@ -800,11 +800,11 @@
 		    ;; Following doesn't work 
 		    ;; #:wheel-cb (make-canvas-action
 		    ;;           (lambda (cnv xadj yadj)
 		    ;;    	 ;; (print "cnv: " cnv " x: " x " y: " y)
 		    ;;    	 (dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
-		    #:size "150x150"
+		    ;; #:size "50x50"
 		    #:expand "YES"
 		    #:scrollbar "YES"
 		    #:posx "0.5"
 		    #:posy "0.5"
 		    #:button-cb (lambda (obj btn pressed x y status)

Index: dcommon.scm
==================================================================
--- dcommon.scm
+++ dcommon.scm
@@ -346,13 +346,13 @@
        (iup:attribute-set! section-matrix (conc curr-row-num ":1") (configf:lookup rawconfig sectionname var))
        (set! curr-row-num (+ 1 curr-row-num))) ;; (config-lookup *configdat* "fields" var)))
      key-vals)
     (iup:vbox
      (iup:label (if title title (conc "Settings from [" sectionname "]"))  
-		#:size   "5x"
-		#:expand "HORIZONTAL"
-		)
+         	;; #:size   "5x"
+         	#:expand "HORIZONTAL"
+         	)
      section-matrix)))
     
 ;; General data
 ;;
 (define (dcommon:general-info)
@@ -436,11 +436,11 @@
 			   (if changed (iup:attribute-set! stats-matrix "REDRAW" "ALL"))))))
     (updater)
     (set! dashboard:update-summary-tab updater)
     (iup:attribute-set! stats-matrix "WIDTHDEF" "40")
     (iup:vbox
-     (iup:label "Run statistics"  #:expand "HORIZONTAL")
+     ;; (iup:label "Run statistics"  #:expand "HORIZONTAL")
      stats-matrix)))
 
 (define (dcommon:servers-table)
   (let* ((colnum         0)
 	 (rownum         0)

Index: launch.scm
==================================================================
--- launch.scm
+++ launch.scm
@@ -459,11 +459,12 @@
     (if (not (file-exists? linktree))
 	(begin
 	  (debug:print 0 "WARNING: linktree did not exist! Creating it now at " linktree)
 	  (create-directory linktree #t))) ;; (system (conc "mkdir -p " linktree))))
     ;; create the directory for the tests dir links, this is needed no matter what...
-    (if (not (directory-exists? lnkbase))
+    (if (and (not (directory-exists? lnkbase))
+	     (not (file-exists? lnkbase)))
 	(create-directory lnkbase #t))
     
     ;; update the toptest record with its location rundir, cache the path
     ;; This wass highly inefficient, one db write for every subtest, potentially
     ;; thousands of unnecessary updates, cache the fact it was set and don't set it