@@ -169,10 +169,12 @@
 ;;   (return-method 'direct)
   
   ;; ulex parameters
   ;; (work-method   'mailbox)
   ;; (return-method 'mailbox)
+
+(my-with-lock common:with-simple-file-lock)
   
 ;; fake out readline usage of toplevel-command
 (define (toplevel-command . a) #f)
 (define *didsomething* #f)  
 (define *db* #f) ;; this is only for the repl, do not use in general!!!!