@@ -1170,22 +1170,18 @@
          (prev-runname (if prev-run-id
                            (rmt:get-run-name-from-id prev-run-id)
                            "None"))
          )
     
-    (print "BB> xor-ui-update HELLO" )
-    (print "BB> curr-runname="curr-runname)
-    (print "BB> prev-runname="prev-runname)
-    (print "BB> current-mode="current-mode)
     (case current-mode
       ((view-one-run)
        (iup:attribute-set! xor-src-runid-label "TITLE" "")
        (iup:attribute-set! xor-dest-runid-label "TITLE" ""))
       ((xor-two-runs)
-       (iup:attribute-set! xor-src-runid-label "TITLE" (conc " SRC: "curr-runname"  "))
-       (iup:attribute-set! xor-dest-runid-label "TITLE" (conc "DEST: "prev-runname"  ")))
-      (else (print "BB> WHA?"))
+       (iup:attribute-set! xor-src-runid-label "TITLE" (conc " SRC: "prev-runname"  "))
+       (iup:attribute-set! xor-dest-runid-label "TITLE" (conc "DEST: "curr-runname"  ")))
+      (else (print "BB> should never arrive here"))
       )))
 
 (define (dboard:runs-tree-browser commondat tabdat)
   (let* ((tb      (iup:treebox
 		   #:value 0
@@ -1212,13 +1208,11 @@
                                  (dboard:tabdat-curr-run-id tabdat))
 				(dboard:tabdat-curr-run-id-set! tabdat run-id)
 
                                 (dboard:tabdat-run-name-set! tabdat curr-runname)
 
-                                (print "BB> before xor-ui-update")
                                 (dboard:xor-ui-update tabdat)
-                                (print "BB> after xor-ui-update")
 				(dboard:tabdat-view-changed-set! tabdat #t))
 			      (debug:print-error 5 *default-log-port* "tree-path->run-id returned non-number " run-id))))
 		      "treebox"))
 		   ;; (print "path: " (tree:node->path obj id) " run-id: " run-id)
 		   )))
@@ -1688,27 +1682,21 @@
                                    (iup:attribute-set! view-one-run-button "BGCOLOR" nonsel-color)
                                    (dboard:xor-ui-update tabdat))
                                  "temp-button-2"))
                               )))
              (set! xor-two-runs-button temp-button)
-             temp-button)
-
+              temp-button)
            (let ((temp-label
                   (iup:label "" #:size "125x15" #:fontsize "10" )))
              (dboard:tabdat-xor-src-runid-label-set! tabdat temp-label)
              temp-label
              )
            (let ((temp-label
                   (iup:label "" #:size "125x15" #:fontsize "10")))
              (dboard:tabdat-xor-dest-runid-label-set! tabdat temp-label)
-             temp-label
-             )
-
-           
-           )
-          )
-
+             temp-label)))
+         
          (run-matrix (iup:matrix
 		      #:expand "YES"
 		      #:click-cb
 		      (lambda (obj lin col status)
 			(let* ((toolpath (car (argv)))
@@ -1731,12 +1719,11 @@
     (dboard:tabdat-runs-tree-set! tabdat tb)
 
     (iup:vbox
      (iup:split
       #:value 150
-      (iup:vbox
-       tb)
+      tb
       run-matrix)
      mode-selector)
     ))