@@ -14,11 +14,19 @@
 ;; 
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 ;;
 
-(use (prefix sqlite3 sqlite3:) srfi-18)
+(import
+ (prefix sqlite3 sqlite3:) srfi-18
+ chicken.file
+ chicken.process
+ chicken.time
+ sqlite3
+ chicken.condition
+ chicken.string
+	)
 
 (declare (unit lock-queue))
 (declare (uses common))
 (declare (uses tasks))
 
@@ -247,7 +255,7 @@
 				  (loop (lock-queue:any-younger? dbdat mystart test-id)))))))))
 	     (sqlite3:finalize! db)
 	     result))))))
 	  
             
-;; (use trace)
+;; (import trace)
 ;; (trace lock-queue:get-lock lock-queue:release-lock lock-queue:wait-turn lock-queue:any-younger? lock-queue:set-state)