@@ -18,10 +18,13 @@
 
 ;;======================================================================
 
 (declare (unit genexample))
 (use posix regex matchable)
+
+(declare (uses commonmod))
+(import commonmod)
 
 (include "db_records.scm")
 
 (define genexample:example-logpro
 #<<EOF