@@ -535,114 +535,114 @@
 (define (tasks:set-area dbh configdat #!key (toppath #f)) ;; could I safely put *toppath* in for the default for toppath? when would it be evaluated?
   (let loop ((area-name (or (configf:lookup configdat "setup" "area-name")
 			    (common:get-area-name)))
 	     (modifier  'none))
     (let ((success (handle-exceptions
-		       exn
-		       (begin
-			 (debug:print 0 *default-log-port* "ERROR: cannot create area entry, " ((condition-property-accessor 'exn 'message) exn))
-			 #f) ;; FIXME: I don't care for now but I should look at *why* there was an exception
-		     (pgdb:add-area dbh area-name (or toppath *toppath*)))))
+		    exn
+		    (begin
+		      (debug:print 0 *default-log-port* "ERROR: cannot create area entry, " ((condition-property-accessor 'exn 'message) exn))
+		      #f) ;; FIXME: I don't care for now but I should look at *why* there was an exception
+		    (pgdb:add-area dbh area-name (or toppath *toppath*)))))
       (or success
 	  (case modifier
 	    ((none)(loop (conc (current-user-name) "_" area-name) 'user))
 	    ((user)(loop (conc (substring (common:get-area-path-signature) 0 4)
 			       area-name) 'areasig))
 	    (else #f)))))) ;; give up
 
 (define (task:print-runtime run-times saperator)
-(for-each
-    (lambda (run-time-info)
+  (for-each
+   (lambda (run-time-info)
      (let* ((run-name  (vector-ref run-time-info 0))
             (run-time  (vector-ref run-time-info 1))
             (target  (vector-ref run-time-info 2)))
-        (print target saperator run-name saperator run-time )))
+       (print target saperator run-name saperator run-time )))
    run-times))
 
 (define (task:print-runtime-as-json run-times)
- (let loop ((run-time-info (car run-times))
-            (rema (cdr run-times)) 
-            (str ""))
-     (let* ((run-name  (vector-ref run-time-info 0))
-            (run-time  (vector-ref run-time-info 1))
-            (target  (vector-ref run-time-info 2)))
-        ;(print (not (equal? str "")))
-        (if (not (equal? str "")) 
-            (set! str (conc str ",")))
-        (if (null? rema)
-		(print "[" str "{target:" target ",run-name:" run-name ", run-time:" run-time "}]")
-            (loop (car rema) (cdr rema) (conc str "{target:" target ", run-name:" run-name ", run-time:" run-time "}"))))))
+  (let loop ((run-time-info (car run-times))
+	     (rema (cdr run-times)) 
+	     (str ""))
+    (let* ((run-name  (vector-ref run-time-info 0))
+	   (run-time  (vector-ref run-time-info 1))
+	   (target  (vector-ref run-time-info 2)))
+					;(print (not (equal? str "")))
+      (if (not (equal? str "")) 
+	  (set! str (conc str ",")))
+      (if (null? rema)
+	  (print "[" str "{target:" target ",run-name:" run-name ", run-time:" run-time "}]")
+	  (loop (car rema) (cdr rema) (conc str "{target:" target ", run-name:" run-name ", run-time:" run-time "}"))))))
 
 
 (define (task:print-testtime test-times saperator)
-(for-each
-    (lambda (test-time-info)
+  (for-each
+   (lambda (test-time-info)
      (let* ((test-name  (vector-ref test-time-info 0))
             (test-time  (vector-ref test-time-info 2))
             (test-item  (if (eq? (string-length (vector-ref test-time-info 1)) 0)
-                               "N/A"
-				(vector-ref test-time-info 1))))
-        (print  test-name saperator test-item saperator test-time )))
+			    "N/A"
+			    (vector-ref test-time-info 1))))
+       (print  test-name saperator test-item saperator test-time )))
    test-times))
 
 (define (task:print-testtime-as-json test-times)
- (let loop ((test-time-info (car test-times))
-            (rema (cdr test-times)) 
-            (str ""))
-     (let* ((test-name  (vector-ref test-time-info 0))
-            (test-time  (vector-ref test-time-info 2))
-            (item  (vector-ref test-time-info 1)))
-        ;(print (not (equal? str "")))
-        (if (not (equal? str "")) 
-            (set! str (conc str ",")))
-        (if (null? rema)
-		(print "[" str "{test-name:" test-name ", item-path:" item ", test-time:" test-time "}]")
-            (loop (car rema) (cdr rema) (conc str "{test-name:" test-name ", item-path:" item ", test-time:" test-time "}"))))))
+  (let loop ((test-time-info (car test-times))
+	     (rema (cdr test-times)) 
+	     (str ""))
+    (let* ((test-name  (vector-ref test-time-info 0))
+	   (test-time  (vector-ref test-time-info 2))
+	   (item  (vector-ref test-time-info 1)))
+					;(print (not (equal? str "")))
+      (if (not (equal? str "")) 
+	  (set! str (conc str ",")))
+      (if (null? rema)
+	  (print "[" str "{test-name:" test-name ", item-path:" item ", test-time:" test-time "}]")
+	  (loop (car rema) (cdr rema) (conc str "{test-name:" test-name ", item-path:" item ", test-time:" test-time "}"))))))
 
 
 
 
 (define (task:add-run-tag dbh run-id tag) 
   (let* ((tag-info (pgdb:get-tag-info-by-name dbh tag)))
-   (if (not tag-info)
-     (begin   
-     (if (handle-exceptions
-	   exn
-	   (begin 
-               (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
-	   #f)
-	   (pgdb:insert-tag  dbh   tag))
-                       (set! tag-info (pgdb:get-tag-info-by-name dbh tag))
-		  #f)))
-     ;;add to area_tags
-     (handle-exceptions
-	   exn
-	   (begin 
-               (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
-	   #f)
-           (if (not (pgdb:is-run-taged-with-a-tag dbh (vector-ref tag-info 0)  run-id))  
-	   (pgdb:insert-run-tag  dbh   (vector-ref tag-info 0)  run-id)))))
+    (if (not tag-info)
+	(begin   
+	  (if (handle-exceptions
+	       exn
+	       (begin 
+		 (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
+		 #f)
+	       (pgdb:insert-tag  dbh   tag))
+	      (set! tag-info (pgdb:get-tag-info-by-name dbh tag))
+	      #f)))
+    ;;add to area_tags
+    (handle-exceptions
+     exn
+     (begin 
+       (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
+       #f)
+     (if (not (pgdb:is-run-taged-with-a-tag dbh (vector-ref tag-info 0)  run-id))  
+	 (pgdb:insert-run-tag  dbh   (vector-ref tag-info 0)  run-id)))))
 
 
 (define (task:add-area-tag dbh area-info tag) 
   (let* ((tag-info (pgdb:get-tag-info-by-name dbh tag)))
-   (if (not tag-info)
-     (begin   
-     (if (handle-exceptions
-	   exn
-	   (begin 
-               (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
-	   #f)
-	   (pgdb:insert-tag  dbh   tag))
-                       (set! tag-info (pgdb:get-tag-info-by-name dbh tag))
-		  #f)))
-     ;;add to area_tags
-     (handle-exceptions
-	   exn
-	   (begin 
-               (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
-	   #f)
-           (if (not (pgdb:is-area-taged-with-a-tag dbh (vector-ref tag-info 0)  (vector-ref area-info 0)))  
-	   (pgdb:insert-area-tag  dbh   (vector-ref tag-info 0)  (vector-ref area-info 0))))))
+    (if (not tag-info)
+	(begin   
+	  (if (handle-exceptions
+	       exn
+	       (begin 
+		 (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
+		 #f)
+	       (pgdb:insert-tag  dbh   tag))
+	      (set! tag-info (pgdb:get-tag-info-by-name dbh tag))
+	      #f)))
+    ;;add to area_tags
+    (handle-exceptions
+     exn
+     (begin 
+       (debug:print-info 1 *default-log-port*  ((condition-property-accessor 'exn 'message) exn))     
+       #f)
+     (if (not (pgdb:is-area-taged-with-a-tag dbh (vector-ref tag-info 0)  (vector-ref area-info 0)))  
+	 (pgdb:insert-area-tag  dbh   (vector-ref tag-info 0)  (vector-ref area-info 0))))))
 
 
 )