;(load "lama:nick.login;lispm-initall#>" :verbose nil)

(login-setq tv:mouse-double-click-time 125000
	    zwei::*ignore-noncontiguous-versions* t
	    zwei::*file-versions-kept*  1)

(when (with-timeout ((* 20 60) t)
	(y-or-n-p "Load Ada? (Takes 20 minutes) (Automatic yes after 20 secs ...) "))
  (load "dj:ct-ada.ctlisp;ctload")
  (load "ct: browser; browser")
  (setq user::*release* (setq user::*db%release* 1))	; why, Lord?
  (FUNCALL (INTERN "INIT-BROWSER" "BROWSER") #\B "ct: doc; browser;")
  (load "dj:nick;newview-patch"))