@@ -25,11 +25,11 @@
 
 (use canvas-draw)
 (import canvas-draw-iup)
 (use ducttape-lib)
 (use sqlite3 srfi-1 posix regex regex-case srfi-69 typed-records
-     sparse-vectors
+     sparse-vectors srfi-18
      (prefix mtconfigf configf:)) 
 (import (prefix sqlite3 sqlite3:))
 
 ;; (declare (uses common))
 ;; (declare (uses margs))
@@ -74,11 +74,11 @@
 (declare (uses commonmod.import))
 (declare (uses megamod.import))
 (declare (uses dcommonmod.import))
 
 (configf:set-debug-printers debug:print debug:print-info debug:print-error *default-log-port*)
-(configf:add-eval-string "(import megamod)")
+(configf:add-eval-string "(import megamod)(import commonmod)")
 
 
 (define help (conc 
 	      "Megatest Dashboard, documentation at http://www.kiatoa.com/fossils/megatest
   version " megatest-version "