@@ -16,14 +16,18 @@
 ;;     You should have received a copy of the GNU General Public License
 ;;     along with Megatest.  If not, see <http://www.gnu.org/licenses/>.
 
 ;;  strftime('%m/%d/%Y %H:%M:%S','now','localtime')
 
-(use typed-records srfi-1)
-
 (declare (unit vg))
+
+(module vg
+    *
+  
+(import scheme chicken data-structures extras ports)
 (use canvas-draw iup)
+(use typed-records srfi-1 srfi-69)
 (import canvas-draw-iup)
 
 (include "vg_records.scm")
 
 ;; ;; structs
@@ -662,5 +666,7 @@
 			       (vg:draw-inst drawing inst draw-mode: draw-mode prev-extents: res)
 			       res)))
 	    (if (null? tal)
 		newres
 		(loop (car tal)(cdr tal) newres)))))))
+
+)