Index: dashboard-guimonitor.scm
==================================================================
--- dashboard-guimonitor.scm
+++ dashboard-guimonitor.scm
@@ -171,19 +171,19 @@
 		       (lambda (x)
 			 (refreshdat)
 			 (if *exit-started*
 			     (set! *exit-started* 'ok))))))
 
-(define (main-window setuptab fsltab collateraltab toolstab)
-  (iup:show
-   (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
-               (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
-                 (iup:attribute-set! tabtop "TABTITLE0" "Setup") 
-                 (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
-                 (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
-                 (iup:attribute-set! tabtop "TABTITLE3" "Tools")
-                 tabtop))))
+;; (define (main-window setuptab fsltab collateraltab toolstab)
+;;   (iup:show
+;;    (iup:dialog #:title "FSL Power Window" #:size "290x190" ; #:expand "YES"
+;;                (let ((tabtop (iup:tabs setuptab collateraltab fsltab toolstab)))
+;;                  (iup:attribute-set! tabtop "TABTITLE0" "Setup") 
+;;                  (iup:attribute-set! tabtop "TABTITLE1" "Collateral")
+;;                  (iup:attribute-set! tabtop "TABTITLE2" "Fossil")
+;;                  (iup:attribute-set! tabtop "TABTITLE3" "Tools")
+;;                  tabtop))))
 
 ;; BUG: Remember to re-instate this!!!!
 ;; (on-exit (lambda ()
 ;; 	   (let ((tdb (tasks:open-db)))
 ;; 	     ;; (print "On-exit called")

Index: server.scm
==================================================================
--- server.scm
+++ server.scm
@@ -458,19 +458,10 @@
 	     ((NOREPLY)  #f)
 	     ((LOGIN_OK) #t)
 	     (else       #f))
 	   (loop (read-line) inl))))))
 
-;; NOT USED (well, ok, reference in rpc-transport but otherwise not used).
-;;
-(define (server:login toppath)
-  (lambda (toppath)
-    (set! *db-last-access* (current-seconds)) ;; might not be needed.
-    (if (equal? *toppath* toppath)
-	#t
-	#f)))
-
 ;; timeout is hms string: 1h 5m 3s, default is 1 minute
 ;;
 (define (server:expiration-timeout)
   (let ((tmo (configf:lookup *configdat* "server" "timeout")))
     (if (and (string? tmo)