Index: tdb.scm
==================================================================
--- tdb.scm
+++ tdb.scm
@@ -187,11 +187,11 @@
 ;; 	  (sqlite3:finalize! tdb)
 ;; 	  (reverse res))
 ;; 	'())))
 
 ;; NOTE: Run this local with #f for db !!!
-(define (tdb:load-test-data test-id #!key (work-area #f))
+(define (tdb:load-test-data test-id)
   (let loop ((lin (read-line)))
     (if (not (eof-object? lin))
 	(begin
 	  (debug:print 4 lin)
 	  (rmt:csv->test-data test-id lin)